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[57] ABSTRACT 

A method and system for electronic data interchange 
(EDI) translation testing displays a plurality of opera- 
tor-interactive panels for controlling pre-production 
translation of EDI document files. The EDI Test Facil- 
ity integrates numerous translator programs to detect 
translation errors. Once an error is detected, the EDI 
test facility displays the translation error and permits an 
operator to interactively correct the segment of the 
EDI document file containing the error. Once the error 
is corrected, the EDI Test Facility permits retranslation 
of the segment. When correctly translated, the segment 
is added to all previously corrected segments of the 
EDI document file in a working file. The method and 
system continue until stopped by the operator or EDI 
document file translation is complete. 
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ble EDI document format requirements causes the 

ELECTRONIC DOCUMENT INTERCHANGE TEST translation to be either significantly incorrect or fully 

FACILITY prohibited. It is, therefore, important that the sending 

trading partner ascertain that all documents satisfy the 

A portion of the disclosure of this patent document 5 information and format requirements of the receiving 

contains material which is subject to copyright protec- trading partner before the trading partner sends them, 

tion. The copyright owner has no objection to the fac- Known methods of testing EDI document transla- 

simile reproduction by anyone of the patent document tions require that when a receiving trading partner 

or the patent disclosure, as it appears in the Patent and encounters a transmission error, the sending partner 

Trademark Office patent file or records, but otherwise 10 must identify and correct the error and, then, resend a 

reserves all copyright rights whatsoever. corrected test EDI document file. This process often 

__ w _ requires numerous iterations and creates time lapses 

TECHNICAL FIELD OF THE INVENTION w £ ch strain productivity . Correcting translation errors 

The present invention relates to the methods and usbg a conventional EDI editing system has not proven 

systems for testing the transmission of data and more 15 practical, because any adjustment in the data link of 

particularly, to a method for testing the transmission of EDI transmission requires that every character follow- 

electronic data interchange (EDI) documents files. ing the modification be adjusted. This results in a signifi- 

_ m T^«r^™^T cant amount of tedious effort between both trading 

BACKGROUND OF THE INVENTION ?mDeT$ ^ type of ^ processin6 by the recipient 

In recent years many companies, in trading with 20 is further limited, because only upon the detection of an 
other companies, for the transmission and receipt or error by the recipient can action be taken to correct the 
interchange of business information have come to use problem. Once this problem is corrected, it is necessary 
computerized systems known as electronic data inter- to completely rerun the file which may be halted again 
change or EDI systems. EDI systems enjoy the particu- as a result of yet another error later in the EDI docu- 
lar advantage of having an established set of standards 25 ment file translation. 

applicable to various types of business documents. For As a result, in order for EDI document transmissions 
example, in an EDI system, an invoice has a defined to reach their full potential efficiency and speed there is 
format and, as a result, may be rapidly transmitted be- a need for as a method and system for rapidly increasing 
tween trading partners as a compact data file from the the data translation rate between trading partners, it is 
sending trading partner's computer to the receiving 30 necessary to have a rapid EDI translation test facility 
trading partner's computer. To create the compact data that does not strain the productivity of the receiving 
files, an EDI operator must first translate the EDI docu- trading partner. 

ments. The EDI document files are compact data files There is a need for a method and system that elimi- 
that the receiving trading partner receives. These com- nates the batch processing necessary to identify errors 
pact data files are translated back into documents by the 35 in EDI translations. 

receiving trading partner. There is yet the need for a method and system that 

Applications for EDI methods and systems include permits EDI system operators to identify and correct 
business activities such as purchasing, accounts payable EDI transmission errors without the need to begin 
and accounts receivable functions, banking transac- again the EDI document file translation process, 
tions, electronic funds transfer and other document 40 oit\/\/adv nr tut xxnn:wTTAM 

transfers. Other EDI system applications include order SUMMARY OF THE INVENTION 

filling and processing between trading partners. Not The present invention, accordingly, provides an elec- 
only is this helpful in buying and selling goods, but also tronic data interchange testing method and system that 
trading partners that are transportation companies may overcomes the problems and satisfies the needs previ- 
use this information to maximize the efficiency of the 45 ously considered 

transportation services they provide. By using EDI According to one aspect of the invention, there is 
systems, a trucking company, for example, may easily provided a method for pre-production translation test- 
keep track of the origin and destination of all of its ing of EDI document files that comprises the steps of 
shipments throughout its service region. generating a plurality of control displays for controlling 

The format standards for EDI documents are gener- 50 the pre-production translation of the EDI document 
ally loosely written so that they can satisfy a wide van- file. Next, translation of the file takes place until a trans- 
ety of user needs. Thus, for example, while an EDI lation error arises. The method of the present invention 
invoice format may have well-defined data fields, sev- is to display the translation error on one of the control 
era! aspects of the EDI invoice are variable. As a result, displays so that the error may be corrected using an 
trading partners who agree to use an EDI system may 55 input to the control display. The next step is to correct 
agree to the format of communication between them the displayed translation error as indicated by the con- 
prior to conducting a business transaction, and thereaf- trol display. This process of translating the file until a 
ter communication between the trading partners has the translation error arises, displaying the translation error 
potential to occur on an almost immediate basis. for correction, and correcting the translation error con- 

Although EDI systems represent a significant im- 60 tinues until the EDI file is fully translated, 
provement in business communications between trading According to another aspect of the invention, there is 
partners, known EDI systems stand in need of improve- provided within one of the control displays a plurality 
ment in document translation efficiency. A particular of initial queries for inputting initialization data pertain- 
problem in the translation of EDI documents is the need ing to the EDI document file. The queries relate to the 
to assure that the documents, as they are generated from 65 particular translation configuration for translating the 
various points within a trading partner, satisfy the EDI data into a particular application program that has the 
document format EDI requirements. This is particu- ability to use the EDI document file. Moreover, a par- 
larly important in cases where failure to satisfy applica- ticularly attractive aspect of the invention is its ability 
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to produce textual segment files for containing in tex- APPENDIX A provides a listing of the software 
tual form predetermined segments of the EDI file and code that the preferred embodiment of the present in- 
permitting an operator to edit the textual segment file in vention implements for EDI document file translation 
response to the indicated translation error. Once all testing. 

errors have been noted and a translation of the relevant 5 DETAILED DESCRIPTION OF THE 

section is complete, the segment is stored in a working INW>mON 

file. The working file contains all of the previously an nun 

corrected segments. Through this segmented approach, The preferred embodiment of the present invention is 

the working file becomes a corrected copy of the origi- best understood by referring to the FIGTJREs wherein 

nal EDI document file. Hence, upon the complete trans- 10 like numerals are used for like and corresponding parts 

lation of the original EDI document file, the operator of the various drawings. 

has the original EDI document file and a working EDI The EDI test facility of the preferred embodiment 
document file that was created by the segmentation integrates within the EDI system environment an oper- 
process. ator interactive translation test facility that is accessible 

A technical advantage of the present invention is that 15 through a computer time share option link. In this envi- 
it permits EDI systems to realize their intended benefits ronment, the EDI test facility of the preferred embodi- 
by eliminating redundant data flows that occur in ment has numerous test configuration options. The EDI 
known systems when EDI document files have transla- test facility of the preferred embodiment integrates its 
tion errors. The EDI test facility of the present inven- operation with the principal communication path 
tion provides the receiving trading partner the ability to 20 among EDI partners for EDI transmissions known as 
perform pre-production translation testing of EDI doc- the EDI system gateway. This permits an EDI system 
ument files just prior to their translation. As a result, the operator to locate and select an EDI transmission file 
EDI document file is fully translated and any errors for immediate translation testing. Once translation test- 
incurred during this process are logged and can be made ing has commenced, error situations are brought to the 
available to the sending trading partner as advised cor- 25 operator's attention along with recommendations for 
rections; thus minimizing unproductive time lapses and correcting the error. The operator has the option to fix 
iterative co mmunic ation cycles between trading part- the error and continue testing until the translator de- 
ne rs. tects another translation error. As translation testing 

Another advantage of the present invention is that it continues, the test results are saved into a working file, 
fully avoids the batch processing that was heretofore 30 The working file may be tested to verify a successful 
necessary in the detecting EDI transmission file errors. translation. Additionally, the preferred embodiment 
Using the method and system of the present invention, generates a log file to provide the operator with a listing 
a trading partner may employ the EDI test facility to of errors encountered during translation testing, 
correct interactively EDI document file transmission The EDI test facility may be used on any computer 
errors. This allows the trading partner to perform a 35 equipped to perform EDI translations and may operate 
single EDI document file translation and therefrom in conjunction with any commercially available EDI 
produce an error-free translated EDI document file. translator software package. Examples of translator 
Because only one translation operation is necessary to packages usable with the preferred embodiment include 
produce the error-free EDI document file, the present the following: transettlements, interbridge and propri- 
in vention eliminates much of the tedious work and pro- 40 etary translators. 

ductivity strain presently existing in EDI document file To use the EDI test facility of the preferred embodi- 
translation. ment, the operator may enter a time sharing option and 

Yet another advantage of the present invention is that receive an EDI document file on which to perform 
it permits the integration of numerous EDI application testing. To perform the operation, the EDI test facility 
programs for error correction and translation. The inte- 45 of the preferred embodiment presents the operator with 
gration that the present invention provides is function- a set of operator friendly panels. FIGS. 1-4 illustrate 
ally transparent to the operator and permits EDI docu- the panels or screens that the operator sees in testing 
ment file translation with any type of translator. The EDI document file for translation errors. In particular, 
solution that the preferred embodiment provides per- FIG. 1 illustrates the 'Translator Configuration 
mits changing the test process from one in which a 50 Screen" that the preferred embodiment provides to the 
number of inadequate or unrelated tools are used for EDI translation test operator. The Translator Configu- 
EDI translation to a process where an integrated and ration Screen of FIG. 1, as indicated by Translator 
easy to use tool kit exists to aid the EDI translation Configuration label 10, permits the operator to input a 
operator. As a result, the interactive testing that the Command for EDI translation at point 12 of the screen, 
preferred embodiment provides significantly reduces 55 the EDI translator program that the operator will use at 
transmission testing cycle time. This reduces software point 14, the EDI translation plan at point 16, the EDI 
development costs and improves overall productivity in Steplib, at points 18 and 20, EDI parms at point 22, and 
EDI document file applications among trading partners. at point 24 the ability to respond to a query of whether 
^„ m ^ _ „„„„„ a translation identified at points 14-22 as being trans- 

BRTEF DESCRIPTION OF THE DRAWINGS ^ ^ again 

The invention and its modes of use and advantages The EDI Steplib input defines a library associated 
are best understood by reference to the following de- with the test facility wherein the translator program 
scription of illustrative embodiments when read in con- resides, and the EDI parms input receives the parame- 
junction with the accompanying drawings, wherein: ters that the operator desires to pass to the translator 

FIG. 1 through 4 are various translation screens us- 65 program. The operator may provide these Translator 
able in a association with the preferred embodiment; Configuration Screen inputs to the EDI test facility of 

FIG. 5 is a flow chart illustrating the operation of the the preferred embodiment using a key board or other 
EDI test facility of the preferred embodiment; and computer input device. 
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Associated with each of the inputs of points 14-24 are output point 62, (e.g., M 00200"),-the applicable Version 

respective parameter descriptors. In particular, for the at output point 64 (e.g., "002001"), and the particular 

Program input point 14, the preferred embodiment indi- Agency for output at point 66 (e.g., "X"). Because of 

cates at point 26 that the proper response to the pro- the "Last Segment Process Successfully" output point 

gram input 14 is the "Translator Name." For the EDI 5 68, the operator at all times knows the last segment that 

plan input 16, the "DB2 Plan" parameter descriptor 28 was successfully processed. At the "Reason" output 

means that for this particular translator, the DB2 plan is point 70, the operator receives the same information 

used. For Steplib inputs 28 and 20, descriptors 30 and 32 that previously appeared at Error Explanation output 

specify that the "Full Name" of the Steplib is necessary 52 of the Test Facility Screen shown in FIG. 3. This 

and that no quotes may be used. Parms input 22 must be 10 provides as the reason why the translation error oc- 

Translated Parms, as descriptor 34 indicates. The ap- curred. Finally, the operator is prompted to "Correct 

propriate response for the "Again" input 24 is "yes" or Identified Errors And Hit PF3 to retranslate the cor- 

"no" with a default to "yes" as indicated by descriptor rected segment (e.g., segment 3 in this example). 

36. The bottom part of the operator screen appearing at 

Once the operator establishes the translator configu- 15 FIG. 4 shows the portion of the original EDI document 

ration by appropriately responding to the Translator file that the segment file contains. With this small seg- 

Configuration Screen of FIG. 1, the operator indicates ment, the operator may identify the error that the Test 

the completion ofthis step by hitting the enter key. Test Facility Search lists and correct it After which, the 

Facility Screen of FIG. 2 appears. Immediately thereaf- operator may depress the PF3 key of his keyboard to 

ter, identifies Test Facility label 38 the Test Facility 20 retranslate the segment and thereby verify that the error 

Screen. With this screen, the operator may input a com- has been corrected. 

mand at point 12 and set up particular files necessary to In using the EDI Test Facility of the preferred em- 
perform the EDI document file transmission testing. bodiment, at each segment that the test facility identi- 
For example, in the preferred embodiment, the operator fies, the Test Facility output of FIG. 3 and the Edit 
provides to the EDI Test Facility the input file at point 25 Screen output of FIG. 4 communicate to the operator 
40. In this example, the input file has the name, the existence of an error and the error location, as well 
".AAA.EDI.I.EXPCWMRT " The operator defines a as provide to the operator the ability to correct the 
work file at point 42 (e.g., ".DAMMSBG.WORK"), a error interactively. Once the error is corrected, the 
segment file at point 44 (e.g., ".DAMMSBG.SEG- operator retranslates the corrected segment and the 
MENT"), and a log file (e.g., "DAMMSBG.LOG") at 30 EDI Test Facility of the preferred embodiment contin- 
point 46. The Test Facility Screen also assists the opera- ues to translate the EDI document file (e.g., 
tor by describing the types of fields necessary at points DAMMKMMFB.DATA of FIG. 3) until the transla- 
40-46 by the input descriptors 48 which appear as tion is complete. 

"(Full Name, No Quotes)." The Translation Incomplete signal 53 of FIG. 3 indi- 

In response to this information and a subsequent com- 35 cates that the translation of input file DAMMKMMF- 

mand to conduct testing that the operator inputs at BD ATA is not completed because of the error identi- 

point 12, the Test Facility Screen can display the exis- fied by segment number output 50 and error explanation 

tence of a translation error. FIG. 3 shows the Test Fa- output 52 (i.e., "ERR14, Badsql Return Code - 924 at 

cility screen that appears during translation testing. segment 000003). 

FIG. 3 shows outputs at Segment Number designator 40 FIG. 5 shows a flow chart of the preferred EDI Test 
50 and Error Explanation output 52 to provide indica- Facility embodiment to provide to the operator the 
tion of errors. In the example, the segment number screens appearing in FIG. 1-4. First the operator fills in 
where an error exists is segment number "000003" hav- the Transfer Configuration Screen to establish the con- 
ing an associated error code of "EER14" and an expla- figuration files of step 74. Next, the operator fills in the 
nation of "Bad Sql Return Code - 924." This means that 45 test facility panel for input, work, segment, and log files 
at segment number 000003 there was a DB2 problem in at step 76. Also at step 76, using the Test Facility 
the EDI document file translation. With this error iden- screens of FIGS. 2 and 3 the EDI Test Facility of the 
tifying information, the operator may insert an "Edit" preferred embodiment displays any error messages aris- 
command into the Command input point 12 of the Test ing from the EDI translation. Next, the EDI Test Facil- 
Facility Screen to see the Edit Screen that appears at 50 ity of the preferred embodiment at step 78 permits the 
FIG. 4. operator to fill in the translator configuration of FIG. 1. 

The preferred embodiment of the present invention, The preferred embodiment then translates the data at 

upon identifying the translation error, places a segment step 80 and queries whether an error has been found in 

of the original input file that contains the translation the EDI file translation at step 82. 
error into a segment file. The segment file, in the exam- 55 If no error occurs, the preferred embodiment sends a 

pie of the preferred embodiment, is identified at point 44 translation successful message to the Test Facility 

of the Test Facility Screens of FIGS. 2 and 3 and the screen at step 84 and then permits the operator to 

Edit Screen designator 54. The Edit Screen designator change the input work segment and log files and con- 

54 shows that the segment file name is "DACCJBM- tinue at steps 76 and the Translator Configuration of 
.SEGMENT." The Edit Label 56 indicates to the oper- 60 step 78. On the other hand, if an error is found at step 

ator that the operator is viewing the Edit Screen. 82, EDI test facility of the preferred embodiment at step 

In the Edit Screen, as in the Translator Configuration 86, issues the information to the Test Facility Screen 

Screen of FIG. 1 and the Test Facility Screen of FIGS. (see FIG. 3) and provides the operator with the ability 

2 and 3, command input 12 permits the operator to to use the Edit Facility of the preferred embodiment. At 
provide a command input. Other outputs of the Edit 65 step 86, the preferred embodiment also logs the problem 

Screen include descriptive output of the results of the in the previously designated log file (see FIG. 3). 

translation at output point 58, the Standard for transla- Under the edit facility, the EDI Test Facility permits 

tion at point 60 (e.g., "ANSI") the Release descriptor at the operator to make changes to the data at step 88 and 
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query whether any changes were made at step 90. If no 
changes were made, control returns to step 76 where 
the operator is to fill in the input, work, segment, and 
log file as well as to display the error message arising 
from the failed translation. On the other hand, if 
changes are made then the program control returns to 
step 80 to translate data and determine whether any 
further error exists. 



8 



Appendix A provides a complete listing of the source 
code for the EDI Test Facility of the preferred embodi- 
ment. 

Although the present invention and its advantages 
have been described in detail, it should be understood 
that various changes, substitutions and alterations can 
be made herein without departing from the spirit and 
scope the invention as defined in the appended claims. 
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UUINC EDZTSBED.R10 
jTM R I Rl 2. 12CR13) 
IS BIO. HIS * • 

la ri i ,eo«.a< .Rio ) 

LA Rll.2048< ,R11 ) 

UIING EDITSBE0+4096,R11 
LA Rl.SAVEAREA 
ST R13,4(,R1) 
ST R1,8C,R13) 

LR R l 



NOTE BASE ADDRESSIBILITY 
SAVE ENTRY REGS 

COPY ENTRY ADDRESS T 

INITIALIZE 2ND BASE REG 



POINT TO SAVE AREA 

LINK TO CALLERS SAVE AREA 

LINK TO OUR SAVE AREA 



SET UP AN ESTAE EXIT 



SPACE 1 

ESTAE TBA8END, 

PARAM=(R1Q), 



ESTABLISH AN ESTAE 



SPACE 1 



INITIALIZE 



0QO1QOOO 
00020000 ' 
00030000 
00040000 

_ooo5oooo_ 

00060000 
00Q700Q0 
00030000 
J)0090000_ 
00100000 
00110000 
00120000 

j>auoooo_ 

00X40000 
00150000 
00160000 

J>01200Q0_ 
00180000 
00190000 
00200000 

_0021Q0aQ_ 
00220000 
00230000 
00240000 

_00250000_ 
00260000 
00270000 
00280000 

_00290000_ 
00300000 
00310000 
00320000 
00330000_ 
00340000 
00350000 
00360000 

_OQ3700.0<L. 
00380000 
00390000 
00400000 
004IO000 
00420000 
00430000 
00440000 
.00450000 

~Q0460000' 
00470000 
00460000 
00490000 

"""00500000" 
00510000 
00520000 
O053QO0O 

~00540000~ 
00550000 
00560000 
00570000. 

-00530000" 
00590000 ' 
00600000 



00610000 
00620000 
00630000 
00640000 

00650000 

00660000* 
X 00670000 
X 00680000 
X_JJ0690000 
O070O0OQ 
+00710QOO 
+00720000 

g073O000^ 

00740000 
X 00750000 
X 00760000 
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SPACE 1 

OX FLAGl/INIT 
USING IHADCB,R12 

_SPAC£Jl - 

LOAD EP-I5PIINK 
SPACE 1 

ST RQ, ISPLADDR 



SET INITIALIZING 



LOAD LINIC PROGRAM 
SAVE ADDRESS 



"DEFINE PROCESSSING OPTIONS FOR DIALOGUE SERVICE 



* 

X 

X 



JgPACg L 



"T RisTlSPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL ( 15) , (CONTROL/ ERRORS , RETURN) , VL 
SPACE 1 



X- 
X- 



^BIfine'misc. variable names to ispf 



SPACE 1 
L R15, ISPL ADDR, 

"CALL (15)/ ^vdEfine 
SPACE 1 

L • R15, ISPLADDR 
CAM C15) . (VDEFINE, 



LOAD AnnPF<^_QP_TSPlINK ROUTINE 
ZUSER, CHAR , L ENGTH8 ) , VL 

LOAD ADDRESS OF ISPLINK ROUTINE 
DSNLIT , DSN , CHAR , LENGTHS > f VL 



L PACE R15, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL (15), (VDEFINE. DSNWLIT,DSNW,CHAR,LENGTH44),VL 

t PAC£ R15/ISPLA0UK LOAD - ADDRlSS~OF iSPLlN* ftftUUNL 

CALL (15)^VDEFINE,DSNALITT,DSNAT,CHAR,LENGTH44),VL 

? PACE R15» ISPLADDR LOAD ADDRESS OF ISPLINK R OUTINE 

"TSUI — CIT77c7DEFlNE71JSf?OTTP;i)5NAP7tSS]rrrENGTHW,VL 

L PACE R15. ISPLADDR LOAD ADDRESS OF ISPLINIC ROUTINE 

CALL C 15), ( VDEFINE. DSNCLITT,DSNCT, CHAR. LENGTH4 4),VL 

R15, ISPLADDR LOAD ADDRESS OF ISPLINK, ROUTINE 

CALL (15), ( VDEFINE, DSNCLITP,DSNCP, CHAR. LENGTH44),VL 
■ SPACE 1 



TOAlTADDRESSniFnSPnNlCROUTINE" 



CALL < 15) . ( VOEFINE/ DSNILITT, DSNIT, CHAR, LENGTH44) , VL 
SPACE 1 

L «5.I5r*LAD0R LOAD ADDRESS OF ISPLINK ROUTINE 

CALL ( 15). (VDEFINE, DSMILITP,DSNIP, CHAR, LENGTHS), VL 
SPACE 1 

L R15, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CAL L (15), (V DEFINE, DSNXL ITT, O SNXT. CHAR, LENG TH** J i VI 

""SPACll 

L R15/ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL ( 15 ) , (V DEFINE . DSNXLITP , DSNXP , CHAR . LENGTHS ) , VL 

"•f £AC£ ^15/ ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL ( 15 ) , (VDEFINE* DSNOL ITT, DSNOT $ CHAR , LENGTHS ) , VL 

l PACg R 15. ISPLADDR LO^D^DDRESS J5FJSPLINKJ*0UIIM£_ 

CALL — ( 15 ) , ( VDEFINE, DSNOHTP,OSNOP , CHAR, LENGTHS 4 ) , VL 
SPACE X 

i R15, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 
ckx , {1ST. < VPFFTMP . DSNS I TT . DSNS .CHAR « LENGTH 4 4_Li_Yl 

L PACE R15. ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL (15), (VDEFINE, DSNLLIT, DSNL, CHAR, LENGTHS) ,VL 
— SEACE 1 



-T R15* ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL ( 15) , (VOEFINE, STDLIT,STD, CHAR, LENGTHS ) ,VL 

j 5 PAC£ P IS. TSPLADDR LOAD ADDRESS OF ISPLINK— ROUHHE. 



CALL ( 15) / ( VDEFINE, RL5LIT#RL5, CHAR, LENGTH5) #VL 

SPACE 1 

L R15, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

C al t OSU V DEFI NE , VERSL IT r V i&S^iiAR^EMIIIHlZlJa 

SPACE ^ 15>ISpLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL (15) / (VDEFINE, AGCYLIT, AGCT , CHAR, LENGTH2 ) , VL 

SPACE 1 



L RXSTlSPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL ( 15) , (VDEFINE,REASLIT,REAS,CHAR, LENGTH71) , VL 

f PAC£ R15 .ISP LADDR LP A D^ApD RES 5 0 F_I S P L J NK ROUTINE 

CALL (15)7(V DEFINE, NUMBLIT # NUMB , CHAR , L ENGTH? ) , VL 

L PACE R15 r ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 
_CA 1L (15). (VP Ff IMF. LA STL IT. LASTS EG ^^l^NGTH6 ) , VL 

L PACE R15, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL (15) , (VDEFINE, RTCRTNCODE, HEX, LENGTH*) , VL 
SPACE 1 



L 

CALL 



R15, ISPLADDR : LOAD ADDRESS OF ISPLlFjlTROUTiNr" 

(15), (VDEFINE, REEZ,RE£ZCQDE,HEX/LENGTH2),VL 



.00770000 

00780000 
0079000Q 
00200000 

jjoeiaooo 

00320000 
00230000 
008*0000 

00850000 

00860000 
00870000 * 
00880000 

00890000 

"00900000 
00910000 
00920000 

00930000 

"009*0000 
00950000 
00960000 

.00970000 

00980000 
00990000 
01000000 

01010000 

"01020000 
01030000 
01040000 

01050000 

"01060000 
01070000 
01080000 

01090000 

"01100000 
01110000 
01120000 
01130000 
"01140000' 
01150000 
01160000 
01170000 

-oiisoooa"" 

01190000 
01200000 

01210000 
01220000 
Q1Z30000 
012*0000 

_0125QQOO_ 
01260000 
01270000 
01280000 

_012900O0_ 
01300000 
01310000 
01320000 

P1330000_ 

013*0000 
01350000 
01360000 

_01370000_ 
Q138Q000 
01390000 
01400000 

fli4iooaa_ 

01420000 

' 01430000 
01440000 

01450000_ 

01460000 
01470000 
01480000 

Q1*9QQ00_ 

01500000 
01510000 
01520000 

0153000O_ 

01540000 

01550000 

01560000 

P1570000_ 

01530000 

01590000 

01600000 

01610000. 

01620000 

01630000 

01640000 

01650000 

01660000" 

01670000 
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X 

X 



SPACE 1 

I R15,IS PLAD0R ^ LOAD ADDRESS OF IS PLINK ROUTINE 

xaUI rf3TTc vdefi n'eTTIid , oc£rr# charJI engtHsJT VC 

SPACE 1 

CREATE TABLE NEEDED FOR FIRST PANEL • 



X 

X 



SPACE X . 

L R15,ISPLAD0R LOAD ADDRESS OF ISPLINK ROUTINE 
CALL C15) » CTBCREATS, VARTAB LE * , VARLIST,NOHRITS) , VL 

-spAcr"i : : — • 

LTR R15,R15 ERROR! 
BNZ ERROROl YES- 

SFACE I 



X— — 
X 


RETRIEVE TSO USERID 


— x I 
X 1 


X— — 


SPACE 1 


— X 1 

1 


X 


L R15,IS?LADDR LOAD ADDRESS OF ISPLINIC ROUTINE 
CAL L CIS), ( VGET , USERL 1ST , SHAR ED) * VL 
SPACE 1 


1 
1 
1 

X i 


X 

X 


ALLOCATE DI5P=SHR DATASETS NEEDED BY TRANSLATOR 


X i 
— X t 



SPACE 1 

jm DYNRBtS99VERB^2fiB^59.5yRBAL.SET.T0-ALL0CAI£_ 



LA 



R2,DSLISTS 



DSLISTSX 



USING DCBPARMS, R2 



POINT TO DATASET LIST 
GET ADDRESSABILITY 

„ EP INt_TO _IEXT_UNIX-LI ST_ 



OS OH 

LA RUDSALL0CS__ __ . _ _ _____ 

ST R1,DYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BLK 
CLI 0(R2),C f 1 END OF LIST! 

BE ALLOCOLD YES- 

JUVC IXIDD+S95tIUPASz5a3TUNITC3U)CBXDDNtLJ5EtJ)DNAf1E^ 



FINDBLNX 



MVC TXTDSN*S99TUPAR-S99TUNIT<44),=CL44» ' BLANK OUT DSN 
MVC TXTDSN+S99TUPAR-S99TUNITCL f 2USER),2USER COPY TSO USERID 
LA R15,TXTDSN+S99TUPAR-S99TUNIT POINT TO WORIC AREA 
J_A SEXJCOUNI 



DS OH 
CLI OCRIS)^' 
BE FOUNDBLX 
J. A BX5JL<R151_ 



BCT RI4, FINDBLNX 
FOUNDBLX DS OH 

MVC 0(4,R15),=CL4 f .TF. 



FIND FIRST BLANK 
FOUND IT- 

POINT TQ NEXT BYTE 



MVC 0C8,R15),DCBXDDMM 
BAL R9,DYNA 
B CKERRORX 



SET MIDDLE NODE 

_INC*EMENT_POINIER 

5ET REST OF DSN 
GO ALLOC FILE 
ERROR ON ALLOCATION 



CICERRORX 



LA 
B 

DS 
CLC 



BNE 
LA 
ST 
MVC 



MVC 
MVC 
MVC 
BAL 



B 

DROP 
SPACE 



R2,L»DCBXNEW(R2) 
DSLISTSX 
OH 

_£XL 2 T 17 0 8 ' , DYMRB+t 

ERROR02 

RI / DSALLOCN 

R1,DYNRB+S99TXTPP- 
J!XES5C£E3tS31TUMR: 

TXTLRECL+S99TUPAR- 
TXTBLKSZ+S99TUPAR- 
TXTPRIME+S99TUPAR* 
R9 , DYNA 

"Err og d2 ~~ 



POINT TO NEXT ENTRY 
CONTINUE 



JERR0 R-S99RB LOCATE E R ROR? 
NO- 



NEXTLISS . 
R2 

J 



POINT TO TEXT UNIT LIST 
599R3 STORE ADDRESS IN REQUEST BLK 

^9?TUNIT{ UIDCBXRFMTLtDCBXRFMT 

S99TUNIT ( L ■ OCBXLREC) , OCBXLREC 
S99TUNITC L'DCBXBLKS) , DCBXBLJCS 
S99TUNIT<L , 0CBXPRIM),DCBXPRIM 

GO ALLOC FILE 

er&or ofT-ALrd<!ATId« 



CONTINUE 



ALLOCATE DISP*0LD DATASETS NEEDED BY TRANSLATOR 



•SCLOCOLD 



SP ACE I 

TjH- 



MVI 
LA 



DYNRB+S99VERB-S99RB,S99VRBAL SET TO ALLOCATE 
R2,DSLIST0 POINT TO DATASET LIST 

GET ADDRESSABILITY 



01630000 
J11690000 
01700000 
01710000 
01720000 
01730000 
01740000 
01750000 - 
01760000 
01770000 
017*0000 
01790000 

o IE ooo a o 

01310000 
01820000 
01330000 
01840000- 
01S5Q0QQ 
01860000 
0X870000 
01880000 
j}1890000 
01900000 
01910000 
01920000 
.01930000 
01940000 
01950000 
0196Q0Q0 
.019Z00QQ_ 
01980000 
01990000 
02000000 
.02010000 
02020000 
02030000 
02040000 
.02050000 
02060000 
02070000 
02080000 
JJ2090000 
02100000 
02X10000 
02120000 
02130000 
02140000 
02150000 
02160000 
JJ21ZJ30QQ. 
02180000 
02190000 
02200000 
02210000 
02220000 
02230000 
02240000 
02250000 
"02260000 
02270000 
02280000 
_02290000 
02300000 
02310000 
02320000 
02330000 
"02340000 
02350000 
02360000 
02370000 
"02320000 
02390000 
02400000 



USING DCSPARMS,R2 

'DSLISTOX DS OH 

LA Rl,DSALLQCO POINT TO TEXT UNIT LIST 

ST R1,DYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BLK 

C LI 0( R2 ) ,.C_LJ END _0E_U5H 

BE ALLOCSO YES- 

MVC TXTD0+S99TUPAR-S99TUNIT(8).DCBXDDNM SET DONAME 

MVC TXTDSN+S99TUPAR-S99TUNIT<44),=CL44' • BLANK OUT DSN 

C!\iC TXTDSN+S99TUPAR-S99TUNIT(L'2USER).7USgR COPY TS O USFRIP 

LA R15,TXTDSN+S99TUPAR-S99TUNIT POINT TO WORK AREA 

LA R14,44 SET COUNT 

FINDBLNK OS OH 

JZL I Q C RX 5 ). x PJ_J EIND SI RST BLANK 



FOUND IT- 
POINT TO NEXT BYTE 



"BE FOUNDBLK 
LA RI5.1CR15) 
BCT R14, FINDBLNK 

FOUNDBLK D S O H 

MVC 0<4,R15),=CL4'.TF.' SET MIDDLE NODE 



02410000 
02420000 
02430000 
02440000 
02450000 

"02460000 
02470000 
02480000 

JJ2490000 
0250000Q 
025X0000 
025200QO 

JJ2530000 
02540000 
02550000 
02560000 

_0257QGOO 
02580000 
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NEXTLISO DS 
LA 
J. 



CKERRGR 



CKERRQR 
OH 

R2,L'0CBXNEWCR2) 

JJSLI5IOI 

OH 



INCREMENT POINTER 
SET REST' OF DSN 
J30_ALLOC_EILE_ 



ERROR ON ALLOCATION 

POINT TO NEXT ENTRY 
jrONUNUf 



02590000 
02600000 

.02610000 

. 02620000 
* 02630000 
02640000 

02650000 

02660000 
02670000 
02630000 
_02690000 



ALLQCSO DS 



MVI 
LA 

SOLISTX D S 

cur 

BE 
MVC 

3AL 



DS 

CLC =XL2'1703 , ,DYNRB+S99ERRQR-S99RB LOCATE ERROR? 
BNE ERROR02 NO- 

J.A BUDSALLOCN ROIMT.JP JLEXX.UNID.IST 

ST R1,DYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BUt 02700000 
MVC TXTRECFM+599TUPAR-599TUNITCL 1 DCBXRFMT) , DCBXRFMT 02710000 
MVC TXTLRECL+599TUPAR-S99TUMITCL 'OCBXLREO » DCBXLREC 02720000 

MVC TXTBLX5Z+59.9T.UPAR-599TUNITCJ. 1 DCBXBLKS ^DCBXBLKS 02730000 

MVC TXTPRlHE+599TUPAR-599TUNITCL'DCBXPRIM).DCBXPRIM O27400OQ 
BAL R9 , DYNA GO ALLOC FILE 02750000 

B ERROR02 ERROR ON ALLOCATION 02760000 

_B NEXILIiO CONTINUE, 02770000 

02730000 
02790000 
-X 02800000 
*_028100QO 
-* 02520000 
02330000 
02340000 
02850000 
02360000 
02370000 
02330000 
02390000 
02900000" 
02910000 
02920000 
02930000 
02940000 
02950000 
C2960000 
02970000 



DROP R2 
SPACE 1 



ALLOCATE SYSOUT NE EDE D BY T RANSLATOR 



SPACE 1 



OH 

R1.5Q ALLOC r POINT TO _TEXT UNIT_LIST 

"RI , DYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BLK 
DYNRB+S99VERB-S99RB,S99VRBAL SET TO ALLOCATE 
R2,S0LIST POINT TO SYSOUT LIST 

"TrtRShc 1 ■ Efirormr? 

GETVARS YES- 

TXTDD+S99TUFAR-S99TUNITC3),0CR2) COPY DDNAME 

R9 ■ DYNA 60 ALLOC_DATABASE 

' — — error- ON ALLOCATION 



ERR0R02 
LA R2,S<R2) 
B SOLISTX 
SPACE 1 



POINT TO NEXT DDNAME 
CONTINUE 



RETRIEVE PANEL VARIABLES FOR DISPLAY 



GETVARS 



CONFIG 



UNCONC 



SPACE I 
DS OH 

L R15,ISPLAD0R LOAD ADDRESS OF ISPLINK ROUTINE 
CALL C 15) * <VGET, SAVL 1ST, PROFILE) ,VL 
..SPACS_1_ .- 

DISPLAY CONFIGURATION PANEL TO GET FILE NAMES 



JEAC£JL 



OH 

R1,DSUNC0NC POINT TO TEXT UNIT LIST 

RL , DYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BLK 

nYMgB+Sg9V gRB-S9qRB. S99VRB0C SET TO UNALL OCATE 

R2,D5LIST POINT TO DS LIST 

OH 

sC'VSAMSOCRZ) END OF LIST? 

UNALCONF JES-. 




TXTDDU+S99TUPAR-S99TUNIT<3),0<R2) COPY DDNAME 
R9,DYNA GO UNCONCAT FILES 
*+4 ERROR ON UNCONCAT 
R2J.Q3JLR2J EOIHTLIQ NEXT. ODNAHf 



CONTINUE 



B UNCONC 
UNALCONF DS OH 

LA RI,DSUNALOC POINT TO TEXT UNIT LIST 
Sl_SUDYNRB±S99mP.I?rS9.9RB.SI0RE_ADDRESS.lN.REQUESJLJlX. 



UNALDSX 



MVI 

LA 

DS 

BE 

MVC 

BAL 



DYNRB+599VERB-S99RB,S99VRBUN SET TO UNALLOCATE 
R2,DSLIST POINT TO DS LIST 

C HZliZL^ END.J1EJJL5IZ. 



DI5PC0NF YES- 
TXTDD+S99TUPAR-S99TUNITC8),0(R2) COPY DDNAME 
R9,DYNA GO UNALLOCATE FILE 

*±$ EgROR_O^NAL1.0CATJ0y 

R2,52CR2) . POINT TO NEXT DDNAME 



DI5PC0NF 



LA 

B UNALDSX 
SPACE 1 

JJ5 aa 



CONTINUE 



L R15,ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL ( 15) , C DISPLAY* PAN EL3 ) fVL DISPLAY 
SPACE 1 

_CH R,1S,=HV3J END/RETURN ENTERS?? 



ENDSESS 
NI FLAG1,FF-INIT 
SPACE 1 



YES- 
RESET INIT FLAG 



ALLOCATE DESP=SHR DAT AS ET 5 NEEDED BY TRANSLATOR 



x 02980000 

31 02990000 

* 03000000 

03010000 
03020000 
03030000 
03040000 
03050000 
03060000 
0307Q000 
03080000 
03090000 
"03100000 
03110000 
03120000 
P3130O00 
03140000 
03150000 
Q316PO00 
JJ3170O00 
03130000 
03190000 
03200000 
03210000 
Q32200QO 
03230000 
03240000 
.03250000 
03260000 
03270000 
03230000 
JJ3290000 
03300000 
03310000 
03320000 
J33330000 
03340000 
03350000 
03360000 
JJ3570000 
03330000 
03390000 
034000Q0 
.03410000 
03420000 
03430000 
■03440000 
_03450000 
034600Q0 
03470000 
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DSLISTX 



CONCLIST 



SPACE 1 

_LA Rl.DSALLOCS POINTTO TEXT UNIT LIST 

ST RITDYNRB+599TXTPP-S99RB STORr^DDRES$~2hTREQUE 
MVI DYNRB+S99VERB-S99RB,S99VRBAL SET TO ALLOCATE 
LA R2,DSLIST POINT TO OATASET LIST 
OS OH : 

-£CI D(R2T7C r ~' : EflfTOrTTSTT : 

BE CONCLIST YES- * 

MVC TXTDD*399TUPAR-S99TUUIT(3),0CR2) COPY DDMAME 

MVC lxro:iN»399TUPAR-S99TUUlT<44).3(R2) COPY P S NAM E 

1X1 89. DYNA GO ALLOC FILE " 

B fw»0R02 ERROR ON ALLOCATION 

LA R2.I>2CR2> POINT TO NEXT OATASET N4ME 

B DSLISTX CONTINUE 

DS OH 

LA Rl,DSCONCLS POINT TO TEXT UNIT LIST 

ST R1,DYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BUC 

J0^I DYNRB+S99VERB-S99RB . S99VRBCr. SFT Tn ALLQCATg 

R2,DSLIST POINT TO DATASET LIST 



END OF LIST? 
JfHS-. 



LA 

CONCNEXT DS OH 

CLC =C'VSAM»,0CR2) 

PE OISPPRIfJ __ 

MVC TXTCONC+S 9 9 TUPAR-S 99T UNIT < 8 ) . 0 C R2) COPY OONAME 
LA R2,52(R2) POINT TO NEXT OONAME 

. MVC .. . TXTCONCX, 0CR2) COPY SECOND DDNAME 

_JAJ R9,DYNA GO„ALLOC JFTLE 

B ERROROZ ERROR ON ALLOCATION 

LA R2,52(R2) . POINT TO NEXT OONAME 

B CONCNEXT CONTINUE 

SCAfEJ 



DISPLAY PRIMARY PANEL 



DISPPRIM 



JteACgJL 



OH 

R12,L0GDCB 
DCBGFLGS.OCBOFOPN 



DS 
LA 
TM 

JNO 

SPACE 1 

CLOSE CCRI2)) 

SPACE 1 
J, 8 gliRIZ 

SPACE 1 



POINT TO LOG DCB 
IS IT OPEN? 
JiOz 



CLOSE IT 



FREE QSAM BUFFERS 



FREEPOOL CI) 
LOGCLOSE DS OH 

LA Rl,DSUNALOC _ ^ 

ST Rl,0YNRB+S99TXTPP-S99RB STOR£~ADORESS IN REQUEST BLK 



_PPINI-TO.TEXT_UNi;L_lJST - 



MVI DYNRB+599VERB-599RB.S99VRBUN SET TO UNALLOCATE 
MVC TXTDD+S99TUPAR-S99TUNIT<3>,=CLS , USERFILE , 
BAL R9 # DYNA pO_l> NA L JJJ C 



B *+4 ERROR ON UNALLOCATION 

MVC TXTDD+S99TUPAR-S99TUNIK8 ) ,=CL8 • INPUT 1 
BAL R9 i DYNA GO UNALLOC 

JJ *+4 ERROR J3N UNALLOCATION 



MVC TXTDD+S99TUPAR-S99TUNIT<8),=CLS , SGMTFILE* 
BAL R9,DYNA GO UNALLOC 

B X+4 ERROR ON UNALLOCATION 

SP ACE 1 

MVC TXTDO+599TUPAR-599TUNITC 8 ),-CL5 T L0G' 

BAL R9 / DYNA GO UNALLOC 

B X+4 ERROR ON UNALLOCATION 

SPACE I 

~T RI37I3PIA0ITK ro«OraffESS"DrT5PnHOoTJnHr 

CALL U5), <TBT0P,VARTA8LE),VL DISPLAY 
SPACE 1 

L R15,ISPLADDR LOAD ADDRESS OF ISPLIN K ROUTIN E 

T3TT C'l5')7"<TBDISf , L7VAT5nBLE;PRIMARY);VLTJlSPLAY 

SPACE 1 . i 

CH R15,=H'8« END/RETURN ENTERED? 

BE CONFIG YES- 



■spffcrr 

DELETE AND RECREATE TABLE OF ERRORS 



X 
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SPACE 2 

L.. 5}5» X ?Eti DDR . L0AD AODRESS'OF ISPLINK ROUTINE 

CALL <15),(TBCL0SE, VARIABLE), VL 
. SPAC E I 



J- , RI5,I5PLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL <15)# (TBCREATE* VARTA8LE, , VARLI5T, NOWRITE) , VL 
SPACE 1 

.ITR R15,R15 £RRQ&Z 

BNZ ERROROl YES- 

SPACE 2 



-ALlOCAtE_mP.UT FILE.SegCIEIEP-aXJJSER. 



SPACE 2 

k£ S}'255kt°9L^, P0INT T0 TEXT UNIT *- IST 

JJ EUDYNR8+S99TXTP.grS99RB STORE ADDRESS IN REQUE ST Br X 

MVI DYNRB+S99VER3-S99RB, S99VRBAL SET TO ALLOCATE "- L - JUJi 



05480000 
05490000 

"035OO00O 
03510000 
05520000 
03550000 

"03540000 
03550000 
03560000 
05570000 

"U3580000 
05590000 
03600000 

036X0000 
03620000 
03630000 
03640000 

J> 3650000 
03660000 
03670000 
03680000 

JJ36900Q0 
03700000 
03710000 
03720000 

JJ3730QO0 
03740000 
05750000 
05760000 
03770000 
03780000 
03790000 
03800000 

.P 5810000 
05820000 
05330000 
05840000 

J) 5850000 
05860000 
05370000 
05880000 

_0 3390000 
03900000 
03910000 
03920000 

_03930000 
05940000 
05950000 
05960000 

_059700Q0 
03980000 
03990000 
04000000 

_04010000 
04020000 
04050000 
04040000 
04050000 

"04060000 
04070000 
04070000 
04090000 

""04100000 
04110000 
04120000 
04150000 

~ 04140000 
04150000 
04160000 
04170000 

""04130000 
04190000 
04200000 
04210000 
04220000 
04230000 
04240000 

J34250000 
04260000 
04270000 
04280000 

_042900Q0 
04300000 
04310000. 
04320000 

_J)4350000 
04340000 
04350000 
04360QOO 

_O4370O00 
04380000 
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TXTDD+S99TUPAR-S99TUNIT(3),=CL3•USERFILE , SET DDNAME 
TXTDSN+S99TUPAR-S99TUNIT(44),DSN COPY DS NAME 
.R2*0YNA GO..AUJ3CJEILE- 




ERROR02 ERROR ON ALLOCATION 

1 

Rl,DSALLOCO POINT TO TEXT UNIT LIST 

.RKDYNRB+S99TXree7S99RB_STOREjlD0RES5_lN. REQUESjLJUX. 
DYNRB+S99VERB-S99RB » S99VRBAL SET TO ALLOCATE 
TXTDD+S99TUPAR-S99TUNIT(3),=CL8«L0G* SET DDNAME 
TXTDSN+S99TUPAR-S99TUNIT(44),DSNL COPY DS NAME 

8S/.DYNA GO.ALL.OC.fILE 

ERRQRQ2 ERROR ON ALLOCATION 

R1,DSALL0C0 POINT TO TEXT UNIT LIST 

Rl , DYNRB+S99TXTPP-599RB STORE AODRESS IN REQUEST BLK 
DYNR8+S9?VERBrS99RB,.S99yRBA^S.ET..TO..AL.L.OCAIE^ 



TXtDD+S99TUPAR-599TUNIT(8 ) , =CL8 1 INPUT • SET DDNAME 
TXTDSN+S99TUPAR-S99TUNIT(44),DSNH COPY DS NAME 
R9/DYNA GO ALLOC FILE 
ERR0R02 ERROR ON ALL OCATION 



LA R12, INPDCB 
MVC DDERR/ DCBDDNAM 
SPACE 1 - 

OPFN (CR12), (INPUT)) 



POINT TO DCB 
SET DDNAME IN ERROR MSG 

OPgN FILE 



SPACE X 

TM DCBOFLGS » DCBOFOPN WAS OPEN SUCCESSFUL? 

BNO ERROR06 NO- 1 

TM DCBREC FM, DCBRECF+OCB RECBR FB RECORDS? 

""BNO ERRORiO ERROR 

LH RO , DCBLRECL GET LRECL 

CH RO^H'SO 1 LRECL s 80? 



BNE 



ERRORIO 



NO ERROR 



SPACE 
MVI 



SPACE I 

CLOSE C(R12)) CLOSE FILE 

DYNRB+S99VERB-S99RB,S99VRBAL .SET TO ALLOCATE^ 
TXTDD+S^TUPAiT^TUHITU ) , 'SGMTFILE' SETTJDflAM^ 
TXTDSN+S99TUPAR-S99TUNIT<44).DSNS COPY DS NAME 
R9, DYNA GO ALLOC FILE 

ERR0R02 ERROR ON ALL OCATION 

_ _ poiNT-TO- DCB 



MVC 
MVC 
BAL 
B 

-C2T 



MVC 

SPACE 

OPEN 

SPACE 

TM 

BNO 

TM 



-Ri2*;ouTDCHr" 

DDERR* DCBDDNAM 
1 

( (R12) » C INPUT) ) 
I 

DCBOFLGS. DCBOFOPN 
ERR0R06 



SET DDNAME IN ERROR MSG 
OPEN FILE 

MAS OPEN successful: 

NO- 



DCBRgC FM, DCBRECV+OCBR ECBR VB RECORDS? 
"ERRORll ' 
RO, DCBLRECL 
R0,5H«259« 

L 



NO- ERROR 
GET LRECL 
LRECL = 259? 



BNO 
LH 
CH 
BNE 

SPACE _ 

CLOSE CCR12)) CLOSE FILE 

SPACE I " " 

MVC ^CDCB^CL3!USERFTJ^l^ETJNILUT...DDNAMe.FQB_REBLQ£2e 

0DC8# =CL8 1 INPUT 1 SET OUTPUT DDNAME FOR REBLOCK 
R12,LGCDCB POINT TO STORE DCB 

DDERR* DCBDDNAM SET DDNAME IN ERROR MSG 



MVC 
LA 
MVC 

_5?AC£_1 

OPEN C (R12) » (OUTPUT) ) 
SPACE 1 

TM DCBOFLGS. DCBOFOPN 



OPEN FILE 

HAS OPEN SUCCESSFUL? 
HQ- 



TRANLOOP DS OH 
SPACE I 

CALL REB L K# ( DCBNAME5 ) » VL GO RE3L0CX FILE FOR XLATOR 



LTR 
BNZ 
SPACE 



R15,R15 
ERR0RQ4 

^15rI5PLA.DJ)^. 



SPACE 1 

CALL (IS), (SELECT, L ENGTH11,SELCMD) , VL 
SPACE 1 

_LTR Rl 5 t Rl 5 BYP ASS CHECK 



REBLOCX. OK? 
NO- 

L Q4P A DP&£SS OF ISPLINK ROUTINE, 



BNZ BYPASST 
SPACE 1 



YES- 



GET INFORMATION ABOUT PROBLEM 



SPACE 1 
CHECKERR DS OH 
LA R12,_ERRDCB 



MVC 
LA 

STCM 
SPACE 



DDERR* DCBDDNAM 
RO » BYPASST 
RO.B'OllI'.DCBEODA 

(<Ri2),(iNPun) — 



_POINT TO ERROR DCB 
SET' DDNAME IN *ERROR"HSG~ 
SET EQD AODRESS 

. IN DCB 



OPEN 
SPACE 1 
TM DCBOFLGS, DCBOFOPN 

BNO E RROR06 

1 ROOFFcR 



"opSTTIlE 

MAS OPEN SUCCESSFUL? 
NO- 

"T3ETTDFFclODDRE3S 



0439Q00Q 
04400000 
_O441QOO0. 
04420000 
04430000 
04440000 
_04450000 
0446000Q 
04470000 
04480000 
_04490000. 
0450000Q 
04510000 
04520000 
_04530000 
04540000 
04550000 
045^0000 
_0$57.0000. 
04530000 
04590000 
04600000 
_046100QQ 
04620000 
04630000 
04640000 
- 04650000 
~~04660000 
04670000 
04680000 
04690000 
04700000 
04710000 
04720000 
04730000 
04740000 
04750000 
04760000 
04770000 
— 04780000 
04790000 
0 4800000 
04210000 
0*320000 
04330000 
04840000 
_0435GO0O 
04660000 
. 048700GO 
04380000 

. 04890000 

04900000 
04910000 
04920000 

3*930000 

04940000 
04950000 
04960000 
_04970000 
04980000 
. 04990000 
05000000 

P5010000 

05020000 
05030000 
05040000 

0505*0000 

05060000 
05070000 
05030000 

Q50900Q0 

05100000 
05110000 
05120000 

O5130000 

05140000 
05150000 
-X 05160000 
X 0 5170000 
-* 05180000 
05190000 
05200000 
05210000 
05220000 
05230000 
05240000 
-05250000 
05260000 
05270000 
05280000 
05290000 
05300000 
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SPACE 1 

GET ERRDCB 

SPACE! 

SPACE 1 
tR R1,R12 
SPACE 1 



5,367,664 

RETRIEVE ERROR RECORD 

TXDsrrrcE " — 
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COPY DCB ADDRESS 



XI) 



"FREEPOOr 
SPACE 1 

L R6, BUFFER 

AH R6,=H«4» 

USING TRANREC, R6 

MVC STD.TRANSTND 

MVC RLS.TRANRLSE 

MVC yERS.xJR4NY.ESS 

"MVC AGCY,TRANAGCY 
MVC REAS.TRANREAS 
MVC LASTSECTRANLAST 

JAC^DBlWORD,JgANU£SI_ 
AP DBLW0RD,=P , 1' 
UNPIC NUMB* DBLWORO 
01 NUMB+S.X'FO' 
MV C SEP , TRANS DLM 



"TREE"Q 5 AM "BUFFERS : 

GET ERROR BUFFER ADDRESS 

POINT PAST RDW 
GET ADDRESSABILITY 
SET STANDARD 
SET RELEASE 

_SET_yERSIOg 

SET AGENCY 
SET REASON 

SET LAST SEGMENT PROCESSED 
_PACSJ.A§T_S_EGMEJ!IT_FI£LQ_ 



SPACE 1 



ADD ONE TO GET PROBLEM SGrtT 
GET IT BACK TO EBCDIC 
SET -ZONE * 

SET SEGMENT D EL I METER 



UPDATE LOG 



SPACE 1 

L R2# BUFFER 
MVC OCSO^^CLSO' 
JJY£ nfl 'BF&S.R?1.RFAS 



SPACE 1 
PUT L0G0C3,CR2> 
SPACE 1 



GET BUFFER ADDRESS 
BLANK OUT BUFFER 
COPY INTO 3VFFEB — 



WRITE RECORD 



ADD REASON TO TABLE 



SPACE 1 
_L„ ?15JL?fUDD? ; 



CAliT C15),(TBADD,VARTABLE),VL 

LTR CE R15,R15 ERROR? 

BNZ ERR0RQ7 YES- 

SPACE - 1 



inAD ADDRFSS OF TSPLINK ROUTINE 



BUILD STORE FILE 



SPACE I 

LA R12,ST0REDCB 
MVC DDERR, DCBDDNAM 

~§~p"lt| F !cRl2),<auiFui)) 

SPACE 1 

TM DCBOFLGS* DCBOFOPN 

BNO ERR OR 06 : 

R27BUFFER 



POINT TO STORE DCB 

SET ODNAME IN ERROR MSG 



L 
MVC 
LA 



OCaO^K'CLSQ' 
R6 , TRANSTOR 



OPEN FILE 

MAS OPEN SUCCESSFUL? 

"~ G Et~"IU? FEr~aFo~r £1 s 



• USING TRANST0R,R6 

STQRCOHI DS ~~ 
CLC 
BE 
MVC 



BLANK OUT BUFFER 
POINT TO TAG 
GET ADDRESSABILITY 



TRANTAGCL'BEDZER03,BEDZER0 END OF VALUES? 
STQRQUIT YES- 

0 (L'TRANSTOR,R2),TRANSTOR COPY INTO BUFFER 



PUT ST0REDCB,<R2) 
SPACE 1 



L A R6 , L ■ TR ANST0RCR6) 

"B — 5T0RC0N1 : : 

OH 



STQRQUIT DS 

CLOSE CCR12)) 
SPACE 
LR 

SPACE 



X 

X 

X 



R1,R12 

FREEPOOL (I) 
_S£AC£_L 



WRITE RECORD 

INCREME NT POINTER 
"CONTINUE 

CLOSE IT 

COPY DCB AOORESS 
FREE 9SAM BUFFERS 



OPEN INPUT FILE 



_^PACE 1 

LA R12« INPDCB 

MVC DDERR. DCBDDNAM 

SPACE I- " 
_DPEN -iaU?t(WVT» 

SPACE 1 

TM DCBOFLCS, DCBOFOPN 

BNO ERR0R06 

SPACE 1 



POINT TO INPUT DCB 

SET DDNAME IN ERROR MSG 

qPSH FXkf 



WAS OPEN SUCCESSFUL! 
NO- 



x 

X 



OPEN TEMPORARY FILE FOR OUTPUT 



05310000 
05320000 
05330000 

05340000 * 

05250000 
05360000 
05370000 

05330000 " 

05290000 
• 05400000 

05410000 

05420000 

05430000 

05440000 

05450000 

05460 00 0~ 

05470000 

05480000 

O5490000_ 

* 05500000 
05510000 
05520000 
05530000 
05540000 

-X 05550000 
X 05560000 

:*_P5570000 



05580000 
05590000 
05600000 

05610000 

. 05620000 
056 30000 
0564000Q 
lX_0565000Q 



X 05660000 

— X 05670000 
05630000 
05690Q0O 
05700000 
05710000 
05720000 

05730000 

05740000 

— X 05750000 
X 05760000 

— X 0 5770000 



— x 

X 

X 



05780000 
05790000 
05800000 
05810000 
'05820000 
05330000 
05840000 
05350000 
'05860000 
05370000 
05330000 
05390000 
"05900000 
05910000 
05920000 
05930000 
"05940000 
05950000 
05960000 
05970000 
r 05980000 
05990000 
06000000 
06010000 
06020000 
06030000 
06040000 
06050000 
'06060000 
06070000 
06030000 
.06090000 
06100000 
06110000 
06120000 
JJ6130000 
06140000 
06150000 
06160000 
J6170000 
06180000 
06190000 
0620QOO0 
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S PACE I 

LA R12,0UTDC3 
MVC DDERR* DCBOONAM 
SPACE I 

_nPFN umiai oummj 



POINT TO OUTPUT 0C3 
SET DONAME IN ERROR MSG 

J1P.EH FILE - 



SPACE 1 

TM 0CB0FLGS,DCBOFOPN WAS OPEN SUCCESSFUL? 
BNO ERR0RQ6 NO- 

HI BFD FIAGI.FF- TMEOF-PERMIERR RESET FLAGS 

NEXT5GMT DS OH 

BAL R9 * FINDSGMT YES- GO FIND SEGMENT 
B ERR0R08 ERROR- 
B C LOSEOUT EOFz_ 



~1T^ RO, BUFFRDW 
SPACE 1 
PUT OUTDCB 
.SPACg \ 



POINT TO SEGMENT 
WRITE IT 



I - NEXTSGfiT 
CLOSEOUT DS OH 

LA R12, OUTDCB 

SPACE 1 

CLOSE CCR123) 



NORMAL 

POINT TO OUTPUT DCB 



SPACE 1 
LR R1,R12 
SPACE JL 



"FRgcPOOL CI) 
SPACE 1 



CLOSE IT 

copt dcb adoress 
Tree qsam bu FFers" 



BRING UP EDIT FACILITY FOR INPUT FILE 



* 

a 

SPACE 1 
EDITSGMT DS OH 

MVC T0SN,DSNS 

ftfTTDSN 



IOSNIOOP 



3 

D j 
IA 
CI T 

MVi 



SET SEGMENT FILE NAME? 

~point~to~dsn' : 



* + 3 
OH 

Rt . KRU 

otan.c " f 

1 O'UIQOP 
0(R1 J.C» ' 1 ■ 



POINT TO NEXT BYTE 

IS THIS A BLANK DELIMETER" 

NO- CONTINUE 

MOVE IN ASTERISK. 



SJCIPTDLM OS r" 5#is?U oOR LOAD AOORESS OF ISPLINK ROUTINE 

CALL C15),<EDIT,TEMPDSN.,,PANEL2),VL 
SPACE 1 

CH RI5.=H'<t_! ABNORMAL^ ETURNI . 

ERROR0 9 YES- 



BYPASST 



BH 
BE 
MVC 
-B. 



BYPASSX 
IDCB» =CL3 'SGMTFTLE 1 
JTRANLO.OP i 



NORMAL RETURNCNOSAVE) 
ScT INPUT DDNAME FOR REBLOCX 
-JLQ_EB4HSJLAKJ^CAIM 



DS OH- 
SPACH 1 

CLOSE < <R12) ) 

SPACE_l 

LR R1.R12 
SPACE 1 
FREEPOQL (1) 

SPACZJL 

MVC MSGID, S CL8 • EDIL050 1 
BAL R9.SETMSGX 
B DISPPRIM 

BYPASSX D S QH 

MVC MSGID, =CL8»EDILQ63» 
BAL R9,SETMSGX 
B DISPPRIM 
5£ACE_I 



CLOSE FILE 



COPY DCB ADDRESS 

FREE QSAM BUFFERS 

SET MSGID 
DISPLAY MSG 
DISPLAY- RESULTS 



SET MSGID 
DISPLAY MSG 
DISPLAY RESULTS 



X 

X 



UNALLOCATE ALL FILES U$ED 



ENDSESS 



_SP AC£ 1 
DS 

ESTAE 
SPACE 
-LA. 
ST 
MVI 
LA 

DS O H 

CO 0(R2),C 




CANCEL ESTAE 
POIHT-TO JFEXT._UNII_LIST_ 



R1TDYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BLK 
DYNRB+S99VERB-S99RB,S99VRBUN SET TO UNALLOCATE 
R2,S0LIST POINT TO SYSOUT LIST 



BE 
MVC 

jaAj_ 



UMALPsq 



B 

LA 
B 

DS 



END OF LIST? 
UNALDSO YES- 
TXTD0+S99TUPAR-S99TUNITC8) $ OCR2) COPY DDNAME 
ff9 . DYNA GO. UNAL LOC 



*+4 
R2,8<R2) 
UNALSYSO 
OH 



ERROR ON UNALLOCATIQN 
POINT TO NEXT DDNAME 
CONTINUE 



LA 

UNALDSXO DS 

CLI 
BE 

: — ft 

BAL 



R2,DSLI5TQ 
OH 

0<R2),C» » 
UNALDSS_ 
~XTDD+S9 
R9 , DYNA 



POINT TO DS LIST 
END OF LIST? 

YES- 

599 TO NIT? 3),Q<R2) COPY DDNAME 



GO UNALLOCATE FILE 



06210000 
06220000 
06230000 
06240000 
JJ6250000. 
06260000 
06270000 
06280000 
J6290000 
06300000 
06310000 
06320000 
06330000. 
"06340000 
06350000 
06360000 
JJ6370000 
06380000" 
06390000 
06400000 
06410000. 
"06420000 
06430000 
06440000 
06450000 
"06460000" 
06470000 
064*80000 
06490000 
""06500000 
06510000 
Q6520QQ0 
06530000 
U6540000 
06550000 
06560000 
06570000 
"*Q6530000 
C6590000 
06600000 
06610000 
066Z0Q0Q 
06630000 
06640000 
_0665OOOO 
06660000 
06670000 
06630000 
_06690000 
06700000 
06710000 
06720000 
_06730000 
06740000 
06750000 
06760000 
_06770000 
06780000 
06790000 
06800000 

06810000 

06820000 
■• 06830000 
06340000 

06850000 

X 06860000 
X 06870000 
X 06880000 

06890000 

06900000 
06910000 
06920000 

06930000 

06940000 
06950000 
06960000 

06970000 

Q6980000 
06990000 
07000000 

07010000 

07020000 
07030000 
07040000 
07050000 
07060000 
07070000 
07O80000 
07090000 
07100000 
07X10000 
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ERROR ON UNALLOCATIOM 
POINT TO NEXT DONAME 
"""CONTINUE 
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SPACE 1 
.UNALDSS DS OH 
. • LA R2 ,DSLISTS 

" CLI 
BE 
MVC 
BAL 
B 

LA 



POINT TO OS LIST 



OH" 

OCR2>,C' ■ END OF LIST? 

CLOSTABL YES- 

rXTD0+599TUPAR-S99TUNITC8),0<R2) COPY DONAME 
R9.DYNA GO UNALLOCATE FILE 
x+4 ERROR ON UNALLOCATIOM 
R2,L , DCBXNEWCR2) POINT TO NEXT DONAME 
JJKAUmS CQHUlLUjE 



SPACE 1 
CLOSTABL DS OH 

L R15.ISPIADDR LOAD ADDRESS OF ISPLINK ROUTINE 
C A L I CJJ J^Xia.CLOS EiVARTA Bl£U/J 

SPACE 1 

L R15.ISPLAD0R LOAD ADDRESS OF ISPLINK ROUTINE 
CALL T1S>,<VPUT,SAVLIST,PR0FUE),VL 
Sfc&CEJL . 



RESTORE REGISTERS AND RETURN TO CALLER 



_SeAC£ X. 



RETURNX DS OH 

L R13,4C,R13) 
L R14,12C,R13) 

Ltt R0..R1 ? , ?QCRI3^ 

BR R14 
SPACE 1 



RESTORE .CALLERS SAVE AREA 

RETURN ADDRESS 
RFSISTESS 



_IHI 5_SUBR0UTINE.MIL UN/ ALL0CATE_IHE.FILE5_NE£DED. 



x 

X 
X 

*- 

X 
X 
X 
* 



RETURN TO THE CALLER WITH A DISPLACEMENT DEPENDING ON 
THE RETURN CODE IN R15. 

_0N FHTRY* P q s > gPTURN ADDRESS 



RETURNS : 0(R9) -> ERROR RETURN 
4CR9) => NORMAL RETURN 



X 

DYNA 



SPACE 1 
DS OH 
I fl BJ • DYNRBP 



SPACE I 
DYNALLOC , 
SPACE 1 

LT R gli_l_l_L 



SFT UP RgQ UPST OCX CHAIN 



BNZ 0CR9) 
B 4<R9> 
SPACE I 



GO ALLOCATE IT - 
JULACATION.SUCCESSfULiL 



NO- TAKE EXIT RETURN 
TAKE NORMAL RETURN 



LOG MESSAGE5 



'LQOIT 



"SPACE I 



SET MESSAGES 



sprcn : : r ~~ 

SETMSGX DS rJs.ISPLADDR _LOAD ADDRESS OF ISPLINK ROUTINE 

CALL <15>,CSETMSG.MSGiD),vT~ LOG IT 
SPACE i 

BR R9 RETURN 
SPACE 1 



ERROR ROUTINES 



ERRQROJL 



ERROROZ 



FSRnROS 



JTABLE.CREAT.E. ERROR. 



SPACE 1 

DS OH 

"ST R15 # RTNCOOE SAVE RETURN CODE 

MVC MSGID.*CL3 , E-IL051 , SET MSG ID FAILURE 
B- ERROR * 

"DS^'^OH" - ALLOCTf foTTFA I LURE 
ST R15, RTNCODE . SAVE RETURN CODE 

MVC REEZCOOE, DYNRB+S99ERROR-S99RB SET REASON CODE 

MVC DDERR,T.XTDD+S99.TUPAR-S99j:UNIT_Sa„ D0NAME_JJOlSG_ 

MVC MSGID,=CL8 , EDIL05^ , SET MSG ID FAILURE 
B ERROR 

ds AC£ OH ALLOCATION. FAILURE 

ST R15.RTNC0DE SAVE RETURN CODE 



SPACE 1 

SIITTSPLADDR .LOAO ADDRESS OF ISPLINK. ROUTInF 

CALL <15),CL0G,MSGID),VL LOG IT 

1 P « ACE U : RSURN. 



07120000 
07130000 
'07140000 
07150000 
07160000 
07170000 
"07180000 
07190000 
07200000 
07210000 
07220000 
07230000 
07240000 
07250000 
07260000 
07270000 
07280000 
.07290000 
07300000 
073100.00 
07320000 
.07330000 
07340000 
07350000 
07360000 
.07370000 
07330000 
07390000 
07400000 
..07410000 
07420000 
07430000 
07440000 
.07450000 
07460000 
07470000 
07480000 
J) 749 00 00 
07500000 
07510000 
07520000 
J)7530000. 
07540000 
07550000 
07560000 
JJ7570000 
07580000 
07590000 
07600000 
.07610000 
07620000 
Q7630000 
07640000 
J)7650000 
07660000 
07670000 
07680000 
07690000 
"07700000 
07710000 
07720000 
07730000 
""07740000 
07750000 
! 07760000 
! 07770000 
""07780000 
07790000 
07800000 

07810000 
07*20000 
07830000 
07840000 
[_078500QO 
I 07860000 
t 07870000 
07880000 
_J)7S90000 
07900000 
07910000 
07920000 
_0793000Q 
Q7940000 
07950000 
07960000 
_0797 0000 
07980000 
07990000 
08000000 
_08Q10000 
. 08020000 
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MVC 
MVC 
_flVX- 



ERROR04 



.SRRQRQ5 



ERRQR06 
E&RQRO? 



6 

SPACE 
DS 

_$T 

MVC 
B 

SPACE 

J>S 

ST 

MVC 

B 

_SPA££ 



REEZCODE, DYNRB+S99ERR0R-S99RB SET REASON CODE 
D0ERR,TXTDD+S99TUPAR-S99TUNIT SET OONAME IN MSG 
_M3GI D^L 3 ' EDI L Q S3 .'. ,. SET—MSG .1 D -FAILURE 



ERROR 
1 
OH 

.B15,.RTH(:QDE 

MSGID^CLa^OILOS^ 1 

ERROR 

1 

_0H_ 



REBLOCK ERROR 

_SAVE_RET.URN.CODE 

SET MSG ID FAILURE 



ATTACH .FAILURE. 



R15#RTNCODE SAVE RETURN CODE 

MSGID, =CL3*EDIL055 r SET MSG ID FAILURE 
ERROR 

1 



DS OH 
MVC MSGID, =CL8 , EDILQ56' 
B ERROR 
-SPACE I 



OPEN FAILURE 

SET MSG ID FAILURE 



OS OH 

ST R15, RTNCODE 

MVC MSGID, =CLS ' EDIL057 ' 

B ERROR - 



TBADD FAILURE 
SAVE RETURN CODE 
SET MSG ID FAILURE 



ERRQR03 



SPACE 1 

DS OH 

LA R12, INPDCB 

SPACE I 

-cL*dsn"?mT5 

SPACE 1 

LR R1,R12 

SPACE 1 

FREEPQQLTT3 

SPACE 1 

LA R1Z,0UTDCB . 
SPACE 1 



PARSE SEGMENT 
POINT TO INPUTDCB 



TcssnT 

COPY DCS ADDRESS 
"FREE~Q5W BUFFER-" 



POINT TO OUTPUT DCB 



-ciosEH:?*roT : 

SPACE I 
LR R1,R12 
SPACE i 
FREEPOOL CI) 
SPACE 1 

MVC MSGID , -CL8 1 EDILOSS' 
B ERROR : 



"-CLOSE-IT ~ 

COPY DCB ADDRESS 
FREE QSAM BUFFERS . 

SET MSG ID FAILURE 



ERROR 09 



ERROR! 0 



ERROR11 



ERRQRiZ 



ERROR 



SPACE 1 
DS OH 

ST R15.RTNC0DE 

_MV£ MSGID^IJLLEPIUL&ii. 

B ERROR 
SPACE 1 

. as . OH- • - - - • 

_CL05E_C.UU2D 

SPACE 1 

MVC MSGID, =CIS 1 EDI LG60 1 
B ERROR 

_seA.cf_i 

DS OH 

SPACE 1 

CLOSE (CR1Z)) 
_SPA.CE_J 

MVC MSGID* S CL3 f EDILQ61 • 

B ERROR 

SPACE 1 
_DS 0H_ 

MVC MSGID. =CL8 1 EDIL062 » 

B ERROR 

SPACE 1 
_DS. 0 H 

BAL R9,LQGIT 

BAL R9,SETMSGX 

TM FLAG! , INIT 
_B0 ENDSESS 

B DISPPRIM 

SPACE 1 



EDIT ERROR 

SAVE RETURN CODE 

SET HS&JJiaiUffiE, 



WORX FILE FORWAT ERROR 
£U>.SE_EIL£ 



SET MSG ID FAILURE 



SEGMENT FILE FORMAT ERROR 
CLOSE FILE 



SET MSG 10 FAILURE 



.SYSTEM .ABEND 

SET MSG ID FAILURE 



.EDIT -ERROR 

GO LOG IT 

GO DISPLAY MSG 

ARE WE INITIALIZING? 
_XES-_END_SESSION 

NO- DISPLAY PANEL 



THE FOLLOWING ROUTINE RETRIEVES THE NEXT LOGICAL RECORD 
FROM A DASD DATASET. 

INPUTS: - 



R5 - RETURN ADDRESS 
OUTPUTS i 



RQ 
Rl 



- INPUT RECORD LENGTH 

- INPUT RECORD ADDRESS 



SPACE 2 
READFILE DS OH 

STM R 14 , Rl , SAV EREGS 

LI R127INPDCB 



ENTRY POINT IDENTIFIER 
SAVE R EGISTERS 
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05030000 
03040000 
_08Q5Q000 
08060000 
C8070000 
08080000 
_03Q9000Q 
08100000 
08110000 
08120000 
_08i3Q00Q 
03140000 
03150000 
08160000 
_08170000 
08130000 
08190000 
08200000 
_ 08210000 
08220000 
08230000 
08240QQQ 
_08250000 
08260000 
08270000 
08280000 
08290000 
08300000 " 
08310000 
08320000 
08330000 
"^08340000 
Q8350000 
08360000 
08370000 
"03380000 
03390000 
OS400000 
08410000 
08420000 
08430000 
08440000 

98450000 

08460000 
08470000 
08430000 
_08490QOO 
08500000 
0851Q0O0 
O85ZQ0O0 

08530000 

08540000 
08550000 
08560000 

08570000 

08S30000 
08590000 
08600000 

08610000 

08620000 
' 086300QO 
08640000 

08650000 

08660000 
08670000 
08680000 

08690000 

08700000 
08710000 
08720000 

08730000 

08740000 
08750000 
-X 08760000 
_*JJ8770000 
X 08780000 
X 08790000 
X 08800000 
_X_0881Q000 
X 08820000 
X 08330000 
X 08840000 
J* 08350000 
X~0886Q000 
X 08870000 
X 08*380000 
X 08890000 
=X~'0890QQOO 
03910000 
03920000 
03930000 
08940000 
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TM BEDFLAG1, INEOF+PERMIERR EOF PREVIOUSLY REACHED? 

BC NALLOFF,READEGF YE5- 

LA RO , READEOF POINT TO EOF EXI T RO UTINE 

"STCM RO i B * 0 1 1 1 'TBCBEODA SAVE EODAD ADDR : ■ ' 

LA RO » READSYN- POINT TO SYNAO EXIT ROUTINE 

STCM R0,B'Q111',DCBSYNA SAVE SYNAD ADDRESS 




I 

INPOCB 
1 

DCBRECFM, DCBRECU 

ALION, RECU 

DCBRECFM, 0C3RECV 
AILON, RECV 



RETRIEVE NEXT RECORD 

RECFM U? 
_YES- 

recrTvt 

YES- 



RECU 



SPACE 1 

UNDEFIN ED OR FT^EH LENGTH RE COR D FORMAT 

SPACE I 
DS OH 

LH RO » DCBLRECt ' LOAD RECUR 0 LENGTH READ 

J. IB R0,RO UNBL.QCKEDJJE.CORDS.2 



BC NZERO* READF200 
LH RO, DC8BLKSI 
B READF200 



NO- 
RETRIEVE BLOCKSIZE 
RETURN 



X VARIABLE LENGTH RECORD FORMAT 

SPACE 1 
RECV DS OH 

LH RQ^-lBU RETRIjEVEJtARIABLE.RECORDJLENGTH. 



READEOF, 



LA 

S 

B 



SLR 
01 

READCLS DS 

in 



Rl,4( ,RU 
R0,=F'4' 
READF200 
.OH- 



POINT TO DATA PORTION OF RECORD 
ADJUST LENGTH FOR ROW 
RETURN 



RO,RQ 

BEDFLAG1* INEOF 
OH 

PCBOFLGSx.DCBOftOEtL 

BC " ALLOFF» READF20Q 
SPACE 1 
CLOSE C(R12)) 
S PACE 1 



CLEAR READ LENGTH 
SET EOF ENCOUNTERED 

-IS_ftAIA SET QE£ii2 



NO- 
CLOSE IT 



LR R1,R12 
SPACE 1 
FREEPOOL <1) 
SPACE 1 



COPY DCB ADDRESS 
FREE QSAM BUFFERS 



SLR RO,RQ 
B READFSOO . 
READSYN DS OH 
SYNA DAF ACSMETH=QSAM 



SPACE 1 
MVC SYNADTXT , 50( Rl ) 
SPACE 1 
_COMMSGS TEXT=M5G230 



SET LENGTH 



REQU EST FO RMATT ED MESSAGE 



x~ 

X 



SPACE 1 
SYNADRLS 
SPACE 1 

01 BEDFLAG1 

T ftEADCCr 
SPACE 1 

NORMAL RETURN 



COPY MESSAGE TEXT 
NOTIFY OPERATOR 



RELEASE BUFFERS 

PERMANENT INPUT E RROR 
:COSElP*N£CESSAftY 



.READF200 OS 
SI 
ST 

REAOfJOO 0** 



SPACE 1 
OH 

Rl ,M0VESTAT*8 
KO .MOVESTAT+12 
Oh 

Lrt R1«".R1,SAVEREGS 

BR RS 
SPACE 2 



SAVE FOR SEGMENT ROUTINE 
SAVE ■ "~ "" 



RESTORE REGISTERS 



FIND SEGMENT ROUTINE 



SUBROUTINE TO PROCESS THE HEADER RECORD AND PICK 
OUT THE DATA ELEMENT AND SEGMENT SEPERATORS TO 
DYNAMICALLY MAKE TO TRANSLATE TABLES. 



Input - R9 - return address 

MOVESTAT+ 0 - ADDRESS OF SEGMENT BUILD AREA 
MOVESTAT+ 4 - LENGTH OF SEGMENT BUILD AREA 
_MOVESTAT±_8_^00RESS_0E_ANSI/UNJEDI. RECORD^ 
MOVESTAT+12 - LENGTH OF ANSI/UNJEDI RECORD 



.SPACE 3— 
OH 



FINDSGMT DS 

XC M0VESTATC3),M0VESTAT RESET STATS OF BUILD AREA 
LM R14.R15,M0VESTAT+8 GET WHERE LEFT OFF IN RECORD 
_ LIB R15.R15 ANY BYTES LEFT TO PROCESS*- 



BNP 
BCTR 
LA 
_EX 



FNDHSTRT 
R15.0 
R5»TABLE0l 
_R15/ ENDALEHA- 



NO- 
YES- GET EXECUTABLE LENGTH 
GET TABLE ADDRESS 
JFJ ND. S EGMEHLia 



OS950000 
03960000 
OS970000 

"08980000 
08990000 
09000000 
090 id 00 0 
09CT20000 
09030000 
09040QQQ 

JJ9O5OOO0 
09060000 
09070000 
09080000 

.09090000 
09100000 
091IOOO0 
091Z0000 

JJ9130000 
09140000 
09150000 
09160000 

JJ9170000 
09180000 
09190000 
09200000 

J9210000 
09220000 
09230000 
09240000 

.09250000 
09260000 
09270000 
09280000 

_09290000 
09300000 
09310000 
09320000 

JQ933Q000 
09340000 
09350000 
09360000 

_P?3ZO0OO, 
09330000 
09390000 
09400000 

_09410000 
09420000 
09430000 
09440000 

__094500a0 
09460000 
09470000 
09*480000 
09490000 
"09500000 
09510000 



X 09520000 

X 09530000 
-* 09540000 
09550000 
09560000 
09570000 
"09530000 
09590000 
09600000 
09610000 
096ZDQ00 
09630000 
09640000 
_09650000 
09660000 
09670000 
09680000 

P96900O0 

0970000Q 
09710000 
09720000 

.09730000 

09740000 
09750000 
09760000 

0977 0000 

' 09780000 
09790000 
09800000 

09810000 

09820000 
" 09830000 
09840000 
09850000 
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FNDS0080 

R15.KR15,R14) 

R14,R1 

OH 
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NOT FOUND 

POINT PAST LAST BYTE OF RECORD 
COPY ADDRESS OF SEGMENT ID 
Jj£U£HGI1U£H. 



30 



DS 

STM R14,R15,M0VESTAT+8 RESET STATS 
B FHDHSTRT CONTINUE 

PS QH 

SET ZERO BYTES LEFT OF THIS RECORD 



LA 



FNDALPHA 
FHDHSTRT 



R15.Q 
FNDS0070 
TRT 0(0,R14),0(R5) 
DS OH 



CONTINUE 



ICM R0.B»1111',M0VESTAT+12 FINISHED READING RECORD? 



BNZ FNDS0090 
SPACE 1 

_BAL 85J3EADFI.LE 

TM BEDFLAGI , INEOF 
BO FNDH1300 
SPACE 1 

L M R14.R15,M0VESTAT+8 



NO- 



J?ETSI EVE NEX T INPUT RECORD 
EOF REACHED? 
YES- 

GET RECORD ADDRESS/LENGT H 



FNDS0090 DS OH 

ICM RO.B' llll , ,M0VESTAT+4 FINISHED BUILDING RECORD? 
BNZ FNDSOLOO NG- 
L R l , BUFFER NO- GET ADDRESS OF BUILD AREA 

sT rFTmovIstat save it 



R1,L'ERRBUFF 
Rl,MQVESTAT+4 
OH 




GET LENGTH OF BUILD AREA 
SAVE IT 



TEFTomVS 

FNDH0900 
OH 

R14,1CR14) 

RISTFUDSQIOTJ 

OH 

R1,M0VE5TAT+12 
Rl . ELMTCTR 
R1CR1.M0VESTAT 
R15,R1 
FNDHERR 

R15,R1 

R14,R0 



NO- 5£?A&ATQir? 

Yes-i 

NO- POINT TO NEXT BYTE 
"PROCESS RESrorRECORD" 



_SIZJ Rl 4 , Rl , f10^£S TA T 

B FHDHSTRT 
FNDH09Q0 DS OH 

S--- R14*M0VESTAT+8 

LA RXfcKRXfri 

B FNDH1QO0 
FNDH1000 DS OH 



UPDATE DISPLACEMENT OF SEPARATOR 
SAVE IT 

GET MOVE STATS 

RECV LGTH > SEND LGTH? 

NO- ERROR 
JSET RECV LGTH TO SEND_LGTH 

MOVE TO RECORD 3UIL0 AREA 

GET MAX LGTH OF BUILD AREA 

MINUS ACTUAL BYTES MOVE 
_SAYE.MOV,E STAT : 

GO READ ANOTHER RECORD 



■CA1C LGTH -OF REST OF SEGMENT 

_jkDD_QNE FOR_SEGMENT 

GO MOVE'TO BUILD AREA 



FNDH1200 



R14.RCM0VESTAT 
,815, Rl_ 



LM 

£H 

BH FNDH1100 

LR R1,R15 

B FNDH1200 
JJ5 OH 

LR R15, Rl 

DS OH 

LTR R15.R15 
JNe ENDH1$00 

CH R15,*H<ZS6 l 

BH FNDH1400 

MVCL R14,R0 

LR R 15,R0 



SET UP FOR MOVE 

RECV LGTH > S END LGTH? 

YES- 

NO- SET SEND LGTH TO RECV LGTH 



SET RECV LGTH TO SEND LGTH 
LENGTH POSITIVE! 



S 
L 

SR 
-SIM 



R15,M0VESTAT+8 



L 
SR 
LA 

L 



FNDH13O0 



FNDH14QQ 



R1,M0VESTAT+12 
R1,R15 

RO.Rl^MOVESIALtl. 
R15. BUFFER 
R14,R15 
R14,4(R14) 

£15^BJJFFRDW 

STCM RH.B'OOUSQCRl 
B 

DS 

-CLC. 
BE 
B 

DS 
JIM 



YES- TOO BIG? 
YES- 

MOVE TO RECORD BUILD AREA 
_GET_ADDR PAST.SE^SAIflR 

CALC BYTES MOVED 

GET TOTAL BYTES IN RECORD 

CALC RESIDUAL BYTE COUNT 
_SAV£_FORJ.ATE*_ 




FNDHNORM 
OH 

M0VESTA T+4C4) 
FNDHEOF 
FNDHERR 
OH 

R14 , Rl .MOVESTAT 



ABEND 8,DUMP 
SPACE 1 



GET BEGINNING OF RECORD 
CALC LENGTH OF RECORD 
ADD LENGTH OF ROW 

jET AD DRESS OF RDM 

SET~RD~W 
RETURN 

ZERO STIL L BUILDING A SE GMENT? 
NO- 
YES- END OF SEGMENT MISSING 

SAVE REGISTERS 



+ 0 



ERROR RETURN. 



FNDHERR 



SPACE 1 

DS OH 

B 0<R9) 

"Space i 



X 

,x 



+4 



EOF RETURN 



FNDHEOF 



DS OH 
B 4(R9) 



09560000 
09870000 
09550000 

JJ9890000 
09900000 
09910000 
09920000 

J0995OOQO 
09940000 
09950000 
09960000 

JJ99I0O0Q. 
09980000 
09990000 
10000000 

J0Q10Q00 
10020000 
10030000 
10040000 

J0O50O0O 
10060000 
10070000 
100*50000 
10090000 

"lOLOOQOQ 
10U0O0O 
10120000 
1013000O 

"10140000 
10150000 
10160000 
10170000 

noiaoooo 

10190000 
10200000 
10210000 
10220000 
10230000 
10240000 

_1 025 0000 
10260000 
10270000 
10280000 

_JL 0290000 
10300000 
103X0000 
10320000 

_1033000Q 
X034000Q 
10350000 
10360000 

_1037OOO0 
10380000 
10390000 
10400000 

_10410000 
10420000 
10430000 
10440000 

_10450000 
10460000 
10470000 
10430000 

__10490QOQ 
10500000 
10510000 
10520000 
J0530000 



10540000 
10550000 
10560000 
1 0570000 
10580000 
10590000 
10600000 

10610000 

10620000 
1Q630QO0 
10640000 
10650000 
10660000 
10670000 

-* 10680000 
X 10690000 

"10700000 
10710000 
10720000 
10730000 
10740000' 

-* 10750000 
X 10760000 

-X 1 0770000 

10780000 

10790000 
10800000 
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SPACE 1 



+8 



NORMAL. RETURN 



S PACE 1 

IS 0> 



FNOHNQRM OS OH 

B 5CR9) 
SPACE 1 

TABLEOl S CNTBL CHARSET=A1 PHA . FUNC^t QCATF 

SPACE 1 
TBABEND DS OH 



PUSH- USING 
J)RQP_ 



USING X,R15 
BNE AAABEND1 



_ IUgN_ 
SPACE 1 



SOMA PRESENT? 
YES- 



AAABEND1 OS 
STM 
-LR- 



RO . AAABEND2 
R15,4 

Rli 

SPACE 1 



LA 
LA 



POINT TO REINSTATEMENT ROUTINE 
INDICATE TASK IS TO BE REINSTATED 
RETURN TO RTM 



OH 

R14.R12,12CR13) 
UO A R15_ 



USING TBABEND#R10 

DROP RI5 • 

LR R4,R1 

JJSINQ SQHA,.R3_ 



SAVE REGS 



SDWA ADR 



R2»SDWAPARM 
USING EDITSBED, R2 
R3,Z048(,R2) 
R3 t 2Q48.CxR3l_ 



LA 

J, A _ .. 

USING EDITSBED+4096,R3 
ICM Rl,B f 0111',SDWACMPC 
DROP R4 
SRI Rl*12 



GET BASE REGISTER 
GET ADDRESSABILITY 
SET 2ND BASE REG 



GET COMPLETION CODE 



N Rl^'OOOOOFFF' 
ST R1,RTNC0DE 
SPACE *1 

SETRP RE GS«C3A#.m 



SAVE IT 



RC=~4, RETADDR-AAABENDZ, FRES0WA=YES#WKAREA=C4) 
SPACE 1 
POP USING 
S PACE 2 



AAA SEND 2 DS 
LR 
LA 

• LA 



L 

BR " R2 
SPACE I 
LTQRG 



OH 
R10,R1 

R11,2048C,R10) 
R 11,20 43C,R11)_ 
R27^AT£RR0R12r 



SET BASE REGISTER 
SET 2ND BASE REG 



"PBIMT TO RFSTSRTTWBKESS" 
GO TO IT 



"EJECT" 



MISC DATA AREA 



DC 
DC 



1 

CL8' 
ACQ) 



18F» 
13F» 
0»0» 
ACERRROW) 



POINT TO RDW 
J>0 INTER TO ERROR BUFFER 



ZUSER 
XLATOR 

• SAVEAREA DC 

SAVEREGS DC 

DBLHORO DC 

BUFFROW DC 

ISKPH ^f?*?^ HESSACE^ID- 

pBcB DC CL8!JL_^ pgTPUT.Dff».£Og_ReBLOpIC = 

EDC8 DC CL8 * REBLKERR* " 

ISPUOOR DC ACQ) 
TEMPDSN --DC- 

IDSN PC 

MQVESTAT DC 
BHD ZERO DC 
BEDBLANK DC 

ELMT.CJR PC_ 

BEDFIAGI DC 
INEOF EQU 
PERMIERR EQU 
5f£ RC 



SYSPRINT DCB FOR REBLOCK 



FLAG1 
INIT 




CONSTANT ZEROS 
CONSTANT BLANK 



DC 
EQU 
SPACE 



END OF FILE 

ERROR READING INPUT FILE 

_SSCttENI_J.EPARA,TQR 

MISC FLAG 
INITIALIZING 



DYNAMIC ALLOCATION CONTROL BLOCKS 



DYNRB 




.O.F.IO:,X:80.»_iAL3CDTNR!U_ 
XLCS99RBEND-S99RB)'00' 
DYNRB+S99R3LM-S99RB 
ALKS99RBEND-S99RB) 



10810000 . 

* 10820000 
K 10330000 

* 10840000 
_10850Q00 

10860.000 
10870000 
10880000 

_10890000 
10900000 
10910000 
10920000 

10930000 

10940000 
10950000 
10960000 

10970000 

10980000 
10990000 
11000000 

11010000 

11020000 

* 11030000 
11040000 

11050000 

11060000 
11070000 
11080000 

11090000 

niooooo 

11110000 
11120000 
_IU300G0 
11140000 
11150000 
11160000 

JUIftPOP. 

11180000 
11190000 
11200000 
411210000 
11220000 
11230000 
11240000 
11250000 
11260000 
11270000 
11280000 
11290000 
11300000 
11310000 
11320000 
11330000 
11340000 
-* 11350000 
X 11360000 
-* 11370000 

1138O000 

11390000 
11400000 
11410000 
11420000 
11430000 
11440000 
11450000 
11460000 
11470000 
11480000 

11490000 

11500000 
11510000 
. 11520000 

11530000 

11540000 
11550000 
11560000 

11570000 

11580000 
11590000 
11600000 

11610000 

11620000 
•* 11630000 
11640000 



£.11650000 
11660000 
11670000 



11680000 
J1690000 
11700000 
11710000 
11720000 
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SOALIOC DC 
DSCGNCLS DC 
DSALLOCS DC 
P SAIL0 CQ_D_C_ 
D5UNAL0C DC 
DSUNCONC DC 
DSALLOCN DC 
DC 
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DYNRB+S99VERBr£2S£S_ 
ALHS99VRBAL) 
DYNRB+S99FLAG1-S99R3 
AL1CS99N0CNV) 
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ACTXTDO),ALl<l28),AL3<TXfSO) 



AL1U28),AL3(TXTC0NC) 
ACTXTDD,TXTDSN),AL1C128),AL3CTXTSHR) 
* (TXT'DDg.TXT'DS'M') -AMf1781.AL 3CTXTQLD) 
"AriTi'28),Al3CTXTDDi 
ALl(12S),AL3CTXTDDin 
ACTXTDD) 



DC" 
DC 
DC 

DC_ 

DC 

DC 
- DC 

DC 

" I5C~ 

DC 

JXTCOHC DC 
.TXTCON CX D C 
7XTTR.. 
TXTNEW DC 
TXTHDISP DC 
♦ TXTCDISP DC 
TXTRECFM DC 
TXTLRECL DC 
TXTBDCSZ DC 
TXTPRIM£J?C. 
TXTSECND DC 
TXTUNITX DC 
TXTOLD DC 

JXTDD DC 

TXTDDU DC 
TXTDSM DC 
TXT S O DC 
TXTSHR OC 



A<TXT 



DSN* _ 

tMEW) 

A(TXTNOISP) 
A(TXTCDISP) 

A(TXTUNITX) 

A(TXTPRIME) 
A (TXTSECND) 

ACTXTRECFM ) \ 

-SmTCREtD m ■ • • 

AUC128).AL3CTXTBUCSZ). i 
AL2(DCCD0NAM,2,8),CL8'. ',AL2<8) 

CIS* ' „ • 

■a iz OTA rrsK; ot : ~ 

AL2<DAISTATS,1,1),X'04' 

AL2CDALMDISP,^,i),X'02 , 

AL2CDALC0ISP,1,1).X'04' 

AL2<DALRECFM,1,1).X»40' 

AL2CDAILRECL,1,2J,X'Q20Z' 

AL2<DALBULSZ,1,2D.X'3C40' 

~AL2CDALSECND»i, 3), X' 000000' 
AL2CDALUNIT,1.5).CL5»SPACE' 
AL2(DALSTATS,U1).X»01« 
_j$L2( DALDDNAM* l/.8)_i CL8 !_JL 



AL2CDDCDDNAM,1,8),CU 
AL2(DALDSNAM,1,44),CL4*» • 
ALZCDALSYSQlM^lKCW 

"SPACE 1 



SYSOUT DDNAWE LIST 



SOLIST 



DC CLB'MCNITOR' 
DC CL8 'MYQUT 1 

JC PI 8 1 R EP ORXL. 

DC CL8 'SYSOUT ' 
DC CLS'WPT' 
DC Cia'SBG' 

JC CL31EE0* 



DC CLS'JSP' 
DC CLS'REBLKERR 1 
DC CL8 1 « 





DDNAME-DSNAME LIST FOR DISP=SHR 



DSLIST 
DSNAT 



_? PACE 1 

DC CLS'ANSI' 
DC CL«4' ' 
DC CLS'ANSIP 1 




CLa'APPLOUT 1 
CL4V ■ 
CLS'APPLOUTX' 



CLB'CNT' 
CL44' ■ 
CL8'CNTP' 
cl 44»- 1 



OSNIT 
'OSHIP 



DC Cia'IDS' 

DC CL44' 1 

DC CL8'IDSP' 

DC CL43 1 



~CL8'C0ND' 



DC 

DSNOT DC CL44' ' 

DC CLS'CONDX' 

DSNOP DC CL44' 



DC 

OC CL8 
SPACE I 



"cl s^vs Art ' ; a 4; » v a alx . m * ■ o : t err : recovery-*" 
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JU730000_ 
11740000 
11750000 
11760000 
_U7700QQ_ 
11780000 
11790000 
11800000 
11810000. 
"11820000 
11830000 
11840000 
1185Q0O0. 
""11860000 
11870000 
11860000 
11890000 
"11900000" 
11910000 
11920000 
11930OC0 
""11940000* 
11950000 
11960000 
11970000 
"■—11930000 
11990000 
12000000 
12010000 
12020000 
12030000 
12040000 

1Z050000 

12060000 



12070000 
12030000 
12090000 — 
"12100000 
12110000 
12120000 
J2130000. 
12140000 
12150000 
12160000 
.12170000. 
12180000 
12190000 
12200000 
J2210000 
12220000 
12230000 
12240000 
_12250000 
12260000 
12270000 
12280000 
_12290000 
i 12300000 
£ 12310000 
I 123200Q0 
12330000 



12340000 
12350000 
12360000 
123700.00 
■"12380000 



12390000 
12400000 
12410000 
"12420000 
12430000 
12440000 
12450000 
"12460000 
. 12470000 
12*80000 
12490000 



DDIUKC-UlbC UST FOR DISP'SHR 



DSLISTS 



'PACE I 

DC CLS'50NLG , ,X , 90',X'Oa50',XU3lO»,X t 000005' 
DC CL5 ' ' 

SPACE 1 



"12500000 
12510000 
12520000 
12530000 
""12540000 
12550000 
12560000 
-X 12570000 
-3T12530000 
-* 12590000 
12600000 
12610000 
12620000 
12630000 
-* 12640000 
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-DOMAME-ALLQ C LIST FO R PI3£5fltD, 



5,367,664 



OSLISTO 



SPACE X 

DC CL8'FAOUT»,X'50«.X , 0a0Q f ,X*5004»,X f 00003Z- 



DC 
DC 

DC- 

SPACE 1 



X 

JlSIiU 
DSNN 
DSNS 
DSNL 
ST.D_ 



^DEFINITION OF PROGRAM STORAGE FOR PANEL VARIABLES" 



SPACE 1 
-DC CL<t* 



RLS 
VERS 
AGCY 
££AS_ 



DC 
DC 
DC 
JC 



DC 
DC 
DC 



CL44' 
CL44» 
CL44' 



LASTSEG DC - 
NUMB DC 
TRANDATA EQU 

JS_ 

RTNCODE DC 
REEZCODE DC 
DDERR DC 



CL5 f 

CL12« 

CL2' 



CL6 1 
CL6' « 

STD,X-STD,C'C« 

OF 



CL4 1 
CL2' 
CL8» 



SPACE 1 



X 



^DEFINITION OF ISPF SERVICE REQUESTS 



DISPLAY DC 

EDIT DC 

PRIMARY DC 

PA NE12 DC 



SPACS .1 



PANEL3 DC 
CONTROL DC 
.SELECT DC 

1R8QRS DC 

RETURN 



CL8 1 DISPLAY 1 
CL8 1 EDIT* 
CL8'EDITB» 
CLa'EDITBl' 



DC 
DC 
DC 
DC 



CL8 1 EDITB2 
C f CONTROL 1 
C'SELECT' 
C f ERRORS 



VDEFINE 

VGET 

VPUJ 

PRbFILT 

SHARED 
.CHAR 
•HEX 

7 st resit 

TBDISPL 
TBADD 
* TBTOP 
T3SARG 
TBCLOSE 
LOG 

55IMSG PC_ 

VARTABLE DC 
NOWRITE DC 
VARLIST DC 
SAVLTST Or 

USERLIST DC 



D<T 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 



C RETURN ■ 
CL8 ' VOEFINE 1 
CLS'VGET' 
_CL8'VPUT» 

cia'PRb^rrr™" 

CL8 1 SHARED* 
CL8'CHAR« 
CL3'HEX' 
""cL8" r T8CRESTc r " 



CLS'TBOISPL' 
CL8 'TBADD • 
CL8 1 TBTOP f 
CL8 'TBSARG 1 
CL3 'TBCLOSE* 
CL8 ( L0G» 
_PL8JSETf1SQ' 
CL8 'VARTAiTl 7 
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_J2650000 
12660000 
12670000 
12630000 

J26900QO 
12700000 
12710000 
12720000 

-12Z30000 
12740000 
12750000 
12760000 

J277.00Q0 
12750000 
12790000 
12300000 

J.2510000 
12320000 
12330000 
12840000 

J.2850000 
12860000 
12370000 
12830000 

.12890000 
12900000 
12910000 
12920000 

J2930000 
12940000 
12950000 
12960000 



Jl2SZ0O0a 



-x 12980000 
X 129SOOO0 
-X 13000000 

130100Q0 

13020000 
13030000 
13040000 
J3050000 



13060000 
13070000 
13030000 
13090000 



13100000 
13110000 
13120000 
13130000 



13140000 
13150000 
13160000 
13170000 
13130000 



13190000 
132Q0000 
13210000 
13220000 
13230000 
13240000 
.13250000 
13260000 
13270000 
13280000 



CL8 * NOWRITE 1 

C'CTBNUMB TBREAS) • ir,* rtrtrt „ 

™s3it S tbdJ5ip^^ 

C?(ZUSER) • TBDSNXT TBDSNXP TBDSNOT TBOSNOP TBDSNLT 13300000 

SPACE.. 1.. * 13310000 



X 

X- 

SPACE 1 

LENGTH? DC F'7* 

LENGTH4 OC F»4' 

LENGTHS DC F*5' 

LENGTH6 DC f t 6 t 

JJEHGIH8 D C F'3 < 



DEFINITION OF LENGTH OF PANEL VARIABLES™" 



13320000 
=5_J.3330000 
X 13340000 
-X 13350000 
13360000 
_1 3370000 



LENGTH1 1 DC 
LENGTH 12 DC 
LENGTH44 DC 

LFNGTHTl nr. 



X- 
X 

X- 



SPACE 1 



F»U' 
F«12' 
F'44' 
F'71 y 



13380000 
13390000 
1340000Q 
J341Q000 



13420000 
13430000 
13440000 
-13450000 



DEFINITION OF PANEL VARIABLES 



SPACE 1 

SELCMD DC C'CMDCZEDITB)' 

2USERLIT DC C'CZUSER)' 

JJSMLII D C C 'C T BDS N) ' 

DSNWLIT DC C'CTBDSNW)' 

DSNSLIT DC C'CTBDSNS)' 

DSNLL IT DC C 9 CTBDSNL ) 1 

JSMAU TT DC C r (T BDSN AT) ' 



13460000 
-X 13470000 
X 13480000 
=*_1349000Q 



13500000 
13510000 
13520000 
JL3530000 



13540000 
13550000 
13560000 
.I35I0QQ0 
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DSNAIITP 
DSNCLITT 
DSNCUTP 

JSNILJIL 

ITSNIUTP 

DSNXLITT 

DSNXUTP 

DSNOLITT 



DC 
DC 
DC 

DC 
DC 
DC 
DC 



DSNQLITP 
STDLIT 

.RLSIIT 
VSRS UT 
AGCYUT" 
REASUT 
NUMBLIT 
LA STLIT 

RTC — 

REEZ 

.DD 



DC 

DC 

DC 

DC 

DC™" 

DC 

DC 

DC 

DC" 



DC C 
OC C 
SPACE 1 
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(TBDSNAP) 
(TBDSNCT) 
(TBDSNCP) 
U9DSNIT.1 
(TBDSNIP) 
(TBDSNXT) 
(TBDSNXP) 
(TBDSNOT ) 
(TBDSN0P7 
(TBSTD) 1 
(TBRLS) ■ 
(TBV ER) I 
(TAT 
(TBREA5) 1 
(TBNUMB) • 
(TLASTS ) 1 



5,367,664 



(REEZ) 1 
CDD2» 



DCB'S 



x — — 

X 

X 

SPACE 1 

ERRDCB DCB D0MAME=rESTBED2. OSORG=PS,MACRF=GM 
SPACE 1 

INPDCB DCB DDNAME=INPUT, DSORG=PS,MACRF*Gl 

S?AC2Jk 

OUTDCB DCB DDNAME=SGJ1TFIIE, DSGRG=PS# MACRF-FM 
SPACE 1 

STOREDCB DCB DDNAME=STGRE, DSORG=PS,MACRF*PM 

J5PAC£JL 



LOGDCB DCB DDNAME s lOG, DSORG-PS,MACRF=PM 
SPACE 1 

OUTBCBX DCB DDNAME=SGMTFZLE# OSORG*PS »"MACRF=Gl 
5PACE_1 . 



UTORG 

SPACZ 1 
ERRRDW DC AL2Cx-X,0) 

£KRBUE£ DS X13123 

BDMQDNUM DC C13«MD00G49« 

END 



^RRDRJUi£EER_RECDRJL. 



EDI MOD NUMBER 
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13530000 
12590000 
13600000 

13610000 

13620000" 
13630000 
13640000 
^13650000 
13660000' 
13670000 
1363QQ0O 

13690000 

13700000' 
13710000 
13720000 
13730000 
13740000 
. 13750000 
13760000 
13770000 
T13780000 
X 13790000 
X 13300000 
13310000 
13320000 
15330000 
13340000 

I3a5oaoo 

13360000" 

13370000 

13330000 

13390000. 

13900000 
13910000 
13920000 

13930000. 

13940000 
13950000 
13960000 

139Z0OQO_ 

99999996 
99999999 
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What is claimed is: 

1. A method for interactively translating electronic 
data interchange files, comprising the steps of: 

(a) generating a plurality of displays for interactively 
controlling the translation of an electronic data 
interchange file; 

(b) translating said electronic data interchange file 
until a translation error exists; 

(c) displaying said translation error on at least one of 
said plurality of displays so that said translation 
error may be corrected interactively; 

(d) correcting said displayed translation error in re- 
sponse to data entered on said at least one of said 
plurality of displays; and 

(e) repeating steps (a) through (d) until no translation 
. error exists. 

2. The method of claim 1, wherein said electronic 
data interchange file comprises transaction data to be 
communicated from a sending computer to a receiving 
computer and said translating step occurs after commu- 
nicating said electronic data interchange file to said 
receiving computer. 

3. The method of claim 2, wherein said correcting 
step further comprises the steps of: 

forming a segment file for containing a portion of said 
electronic data interchange file where said portion 
includes said translation error; 

placing said portion of said electronic data inter- 
change file into said segment file; 

displaying said portion on said at least one of said 
plurality of displays for correcting said translation 
error; and 

forming a working file comprising all correctly trans* 
lated portions of said electronic data interchange 
file. 



4. The method of claim 2, wherein said displaying and 
correcting steps occur interactively without the need to 
retranslate all previously translated portions of said 
electronic data interchange file, 
5 5. The method of claim 1, further comprising the step 
of logging each of said translation error occurring dur- 
ing the translation of said electronic data interchange 
file. 

6. The method of claim 1, further comprising the step 
10 of forming a working file of all correctly translated 

portions of said electronic data interchange file. 

7. A programmable machine system for interactively 
translating business transaction data between a plurality 
of different dictionary-structured transaction formats, 

IS said machine system including a plurality of system . 
components, said machine system comprising: 
output circuitry for generating a plurality of visible 
signals corresponding to the status of translation of 
said business transaction data from one format to 
20 another predetermined format; 

translation circuitry for translating said business 

transaction data into said predetermined format; 
error detection and reporting circuitry for detecting 
the existence of a translation error and communi- 
25 eating said translation error to said output cir- 
cuitry; 

editing circuitry for interactively receiving correc- 
tions to said business transaction data and for modi- 
fying said business transaction data in response to 
30 said corrections generating corrected business 
transaction data; and 

said translation circuitry translating said corrected 
business transaction data, 
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